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Color Enhanced 
Dynamic Graphics: 


A New Option; A New Technology 




By Thomas W. Woody 

Tektronix, Inc. 

Beaverton, OR 

Dynamic Graphics* brought powerful in¬ 
teractivity to the TEKTRONIX 
Desktop Computer. Now the 4054 has 
taken another technological leap: Color 
Enhanced Dynamic Graphics. This new 
option allows refreshed objects to be 
moved around on the graphics screen in 
a contrasting orange color. Enhancing 
Dynamic Graphics with color clearly dis¬ 
tinguishes refreshed objects from stored 


objects which are in the familiar green 
color. And displaying a refreshed image 
over a stored image achieves a third co¬ 
lor — very useful for highlighting text or 
objects. 


v. y 


Packaging a desktop computer with very 
high resolution (4096 x 4096 addressable 
points), Dynamic Graphics, and a second 
color required a major technological ad¬ 
vancement. To understand this technolo¬ 
gy, let’s take a look at the Direct View 
Storage Tube (DVST), the Write-Thru 
operation, and the Over-Write features. 



Figure 1. Operation of the direct view storage tube. Flood electrons continuously bombard the phos -a 
phor. In the absence of writing-gun electrons, flood electrons maintain the phosphor at the flood-gunm 
cathode potential of 0 volts. When writing-gun electrons strike the phosphor, the phosphor is charged ^ 
past a threshold to maintain a stored charge image. 


*Miki Tokola. “Refreshed Graphic Objects on 
the 4054,” TEKniques Vol. 3 No. 5. pp. 1-3. 


2 


Tekniques 
Vol. 5 No. 3 

































DVST Operation 

A Direct View Storage Tube (DYST) op¬ 
erates on well known principles that are 
briefly reviewed here. Figure 1 shows a 
simplified DVST structure. A DVST 
consists of a writing gun that operates at 
a negative potential with respect to the 
target. The phosphor target resides over 
a transparent electrical conductor, and a 
dot array of conductive collectors is ar¬ 
ranged in a uniform fashion across the 
surface of the conductor. Near the back 
of the funnel wall of the cathode ray 
tube (CRT) is an array of flood guns in 
which the cathode is grounded and the 
anode is at a positive potential. 

When the DVST is in normal use for dis¬ 
playing stored information, the writing 
gun is used to scan the target. As the 
writing-gun beam scans the target, a 
charge is left on the phosphor dielectric. 

Because the charge image areas are at a 
positive potential relative to the flood- 
gun cathode, the flood electrons strike 
the target in the written areas and cause 
the phosphor to luminesce. All of the ar¬ 
eas that were not written are maintained 
at an average potential much lower than 
the written areas. The areas written up 
are called fully-written, and the unwrit¬ 
ten areas are known as ready-to-write. 
Figure 1 shows a magnified view of the 
target structure. 

To erase the target and prepare it for 
new information, a pulse is applied to 
the STB, which capacitively couples the 
pulse to the phosphor. This pulse, cou¬ 
pled with the flood-gun electrons, uni¬ 
formly fully writes the phosphor and eli¬ 
minates the ability to resolve between 
former ready-to-write and fully-written 
areas. The balance of the erase restores 
the entire target to a ready-to-write state. 

This simple description shows how a 
DVST is used to display data in the 
stored mode. Once the target is stored, 
no further refreshing or rewriting of the 
information is necessary. 

Write-Thru, How it Works 

Because of its basic nature, the DVST 
must be erased every time a new page of 
information is to be displayed. Although 
the erasure time is not long (about 1 to 
1.5 seconds), if the information is to be 
changed only slightly, rewriting a com¬ 
plete page of data can take several sec¬ 
onds depending on the throughput rate of 
the system. 

The need for interactivity and faster re¬ 
sponse for DVSTs was recognized, and a 


technique called write-thru was devised. 
Write-thru displays information on the 
phosphor target at a current density 
lower than that required to charge or 
write the phosphor target. If the repeti¬ 
tion rate is adjusted properly along with 
beam current, the refreshed image will 
luminesce but will not store. This feature 
is already available in many DVST dis¬ 
plays. Options allow the displays to re¬ 
fresh a number of vectors at an average 
vector length of 1 cm. One drawback to 
this technique is that the refreshed infor¬ 
mation appears at approximately the 
same brightness as the stored informa¬ 
tion and also at the same color. As a re¬ 
sult, write-thru can sometimes confuse 
the observer if the refreshed information 
overlaps the stored information, as in the 
case of multilayer-circuit-board design or 
facilities design. 


1976 CIE-UCS Chromaticity Diagram . 


Color Write-Thru Operation 

One way to overcome this problem is to 
present the refreshed data in a different 
color. The display is then much more 
viewable, and information is more dis¬ 
cernible. The color write-thru DVST de¬ 
scribed here uses a greenish-yellow color 
as denoted on the 1976 CIE-UCS 
chromaticity diagram (see Figure 2, point 
A). 

The method used to obtain the greenish- 
yellow color was fairly straightforward. 
A simple mixture of red phosphor with 
the green produced a write-thru color as 
noted previously. The color obtained is 
dependent on the proportion of each 
phosphor. As shown in Figure 2, the line 
represents this operating area from the 
green to the red phosphor. The two reds 
used most frequently are yttrium oxysul- 
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fide and yttrium oxide, which have ex¬ 
cellent high-voltage efficiency character¬ 
istics. 

Determining how much red phosphor to 
add was subject of another, separate 
study. Color shift is defined as the linear 
distance that the write-thru information 
is shifted from the stored information 
along the line shown in Figure 2. The 
minimum discernible color shift for high 
view comprehension level required that 
the red phosphor be 40% to 60% of the 
target by volume. This phosphor mixture 
reduced green stored luminance to about 
4 foot lamberts. Because of this decrease 
in performance, a new tube envelope and 
flood-gun design were used, which 
helped to increase the flood-gun current 
density to the target and thereby in¬ 
crease the stored luminance. In addition 
to the use of a new funnel, the phosphor 
materials were processed in such a way 
as to increase the nominal operating 
point and thereby obtain additional lumi¬ 
nance output. 

Another by-product of phosphor process¬ 
ing also enhances viewability. Normally, 
a mixture of phosphor used as a storage 
target would also present the stored in¬ 
formation in the resultant mixed color. 
However, the processing forms a dead 


layer on the surface of the red phosphor 
that causes the red phosphor to not lumi¬ 
nesce until it reaches about 400 volts. 
Because the operating point of the target 
is less than 300 volts, there is a 100-volt 
margin before the red phosphor begins to 
luminesce. This shallow dead layer min¬ 
imizes the loss in luminance when the 
writing-gun brightness is achieved with 
the greatest overall color shift. 

These improvements resulted in a new 
DVST that retains and improves upon 
the viewability of previous DVSTs. 
Stored luminance was increased by 60% 
as a result of the greater flood-gun cur¬ 
rent density and operating point. The 
predominant feature is the improvement 
in write-thru viewability by the addition 
of a red phosphor. 

“Over-Write” 


color shift that are discernible from each 
other. This feature can easily be used to 
highlight information whether graphic or 
alphanumeric. 

With proper software, the color write- 
thru and over-write features expand the 
usefulness of the DVST display. While 
still retaining its inherent low cost, high 
resolution, and flicker-free performance, 
the display can be much more interactive 
with the added dynamics capability. 



Factory Installation 

Because the Color Enhanced Dynamic 
Graphics is a new technology, an exist¬ 
ing 4054 cannot be field upgraded. The 
different CRT, electronics, and mechani¬ 
cal packaging require the Color En¬ 
hanced Dynamic Graphics to be a 
factory installed option. 


A feature that was not available in the 
single-color display is called “over¬ 
write” rather than write-thru. If some 
data is stored, and then the same image 
is refreshed on top of the stored data, 
another viewable color is seen halfway 
between green and normal write-thru. 
This color is shown as point B on Figure 
2. This feature is called over-write. With 
this feature, one can obtain two levels of 


To learn more about this exciting option, 
contact your local Tektronix Sales En¬ 


G 


gineer. 
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Low-Cost CADD System 
Communicates Numerically 
and Graphically 


by Patricia Kelley 
TEKniques Staff 

Developing floor plans and building ele¬ 
vations; integrating lighting, heating, ven¬ 
tilation, plumbing and wiring; tracking 
materials; computing floor area; estimat¬ 
ing costs; and generally organizing the 
multitude of details for a commercial or 
industrial building requires an archi¬ 
tect/designer or facilities manager to 
spend immense amounts of time draw¬ 
ing, estimating and calculating. While 
Computer Aided Design and Drafting 
(CADD) has been around for quite a few 
years to aid designers, few systems have 
been tailored specifically for archi¬ 
tects/facilities applications. System 
prices have generally been out of reach. 
Furthermore, most systems required an 
operator well versed in computers. Arri- 
goni Computer Graphics is changing 
that. 

Seeking better ways to control all the 
tasks and responsibilities associated with 
his firm’s work in commercial and indus¬ 
trial lighting design, David Arrigoni 
turned to a desktop computer to imple¬ 
ment a CADD System for his architec¬ 
tural and electrical design needs. He 
then worked with programmers with ar¬ 
chitectural backgrounds to create soft¬ 
ware that communicated in designers’ 
terms. What resulted was a complete, 
low-cost CADD system so powerful they 
decided to extend it and share it — a 
package created by designers for design¬ 
ers. Based around this unique system 
David Arrigoni formed Arrigoni Compu¬ 
ter Graphics. 

Because the TEKTRONIX 4050 Series 
Desktop Computer possesses the high re¬ 



cover Photo: Arrigoni Computer Graphics’ TOUCH N’ DRAW™ integrates their unique Touch Control 
Station™ and MENU BOARD™ with the TEKTRONIX 4050 Graphic System, 4663 Plotter and 4907 
File Manager for low cost, time saving design station. (Courtesy of Arrigoni Computer Graphics.) 


solution designers require, plus stand¬ 
alone intelligence, at a reasonable cost, it 
forms the core of the hardware. Coupled 
to the 4050 is the unique Arrigoni Z-80 
microprocessor-based Touch Control 


Station ™, the TEKTRONIX 4907 ■File- 
Manager and 4 663 Plotter , and a digitiz- 
ine tablet with a MfcNJLL-P O ARP™ .^The 

with the hardware to create a design and 
drawing production system. 


The configuration is an electronic exten¬ 
sion of normal drafting tools. Arrigoni 
Vice President Robert Aston analogized: 

‘The digitizer is the drafting tab le, the 
cursor is the drawin g implemen t, the 

.ggnSgJCJ BK WKgMM HBPQBSPBgl ^MH P — awj— — g'iiTT'. 5EB3B53 I ll I ' B—j 7 

the 4 ilon,ei:. 


produces the final copy — another pen 
in hand. The 4050, Touch Control Sta¬ 
tion™ and TOUCH ’N DRAW™ soft¬ 
ware perform the details of drafting leav¬ 
ing the architect or engineer free to 
create.” Aston pointed out that the de¬ 
signer treats the disk as he would a sheet 
of paper. In a normal design environ¬ 
ment, one person doesn’t do everything. 
Thus, a disk may be passed from design 
center to design center just as he would 
a sheet of paper. 

The designer communicates to the sys¬ 
tem through the Touch Control 
Station™, using pre-prepared graphic 
menus. There is no need to translate ide¬ 
as to alphanumerics, no need to learn a 
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command language, no need for skilled 
typing. A designer with a computer 
background is not required. The archi¬ 
tect, draftsman or engineer simply points 
to a menu item on the Touch Control 
Station™ (or alternatively, to the MENU 
BOARD™) to enter a command. Ac¬ 
cording to David Arrigoni, three days’ 
training on the system at the customer 
site will get the user to the point of de¬ 
veloping quality drawings. 

TOUCH ’N DRAW™ is structured ac¬ 
cording to normal architectural drafting 
phases. The plans may be drawn a layer 
Rt a timp, analagous to pieces of “see- 
through” paper, one on top of another. 
For example, one layer for the basic 
wall, door and window outline, one for 
electrical information, one for plumbing 
details, one for textures, and so forth. A 
unique global editing feature enables the 
designer to move all those items within a 
series of layers, i.e., to move a wall and 
bring along all the doors, windows, elec¬ 
trical outlets, plumbing, etc; or, he may 
opt to move an individual item within 
one layer. 

Architectural Floorplan Program 

Complete, precise architectural floor 
plans are produced using this program. 
The designer defines his plan by touch¬ 
ing the menu symbol which represents 
the desired design detail (Figure 1). He 
may position the wall, window, etc., 
“graphically” by digitizing its position 
points on the tablet, or at the screen. 
The exact size or length of an item, e.g., 
the specific diameter of a circle, or spe¬ 
cific length of a wall, can be entered 
“numerically.” The program automati¬ 
cally scales this input to the size of the 
drawing. The first point entered is for 
beginning, second point is for direction, 
and a number is entered from the key-, 
board for actual size. 

Walls may be snapped into perfect hori¬ 
zontal or vertical alignment (an electron¬ 
ic T-square). Over 250 special functions, 
including noodling (Figure 2), door and 
window insertion, variable wall 
thicknesses, dimenisioning and curve fit¬ 
ting may be used. The designer may se¬ 
lect from a variety of windows, doors 
and other architectural symbols. He may 
request multiples of that symbol, for in¬ 
stance, ask for six windows positioned at 
five-foot intervals along a wall. 

As the design is created, it is displayed 
on the screen. Once completed, it may 
be stored on disk. Existing floor plans 
may be easily modified and saved allow¬ 
ing the plans to keep pace with architec- 





Figure 1. Designers communicate by touching an item on the acetate menu placed on the Touch Control 
Station ™ (or alternatively on the MENU BOARD ™ placed on the tablet). 



Figure 2. Special functions include noodling. 


C 


Figure 3. Completed design using the Architectural Floorplan Program may be archived and changed as 
facilities are expanded or modified. 
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tural changes. The floor plan can be ar¬ 
chived and changed when facilities are 
expanded or modified. 

General Drawing Program 

Single line work, as well as very sophis¬ 
ticated work, may be accomplished using 
this program. Details may be added to 
the architectural floorplan, new draw¬ 
ings, site plans or general layout work 
done. Curve fitting, dimensioning, dot- 
dash, polygons, circles and mirroring are 
just a few of the functions. Unique relo¬ 
catable objects may be created, saved 
and re-used. For instance, an architect 
may design a bathroom for an apartment 
complex which will be the same in 30 
units. He can design it once, then place 
it 30 times. Or, where entire floors are 
similar, he could design the first floor, 
make changes, copy it to the second, 
and so on. A layout may be reversed and 
repeated (mirroring). This program re¬ 
moves the designer from routine and re¬ 
petitive use of rulers and templates, thus 
allowing him to create and design. 

Symbol Placement Program 

Continuing the analogy, Aston referred 
to the symbols as a sophisticated tem¬ 
plate. TOUCH ’N DRAW™ provides 
1 0-00 s ymbol s — trees, landscape, furni¬ 
ture, people, air duct grills, electrical 
symbols and so on for almost anything 
that can be visualized. The designer is 
freed from templates and press-on trans¬ 
fers. Using this program, the plans de¬ 
fined through the previous two programs 
are enhanced. A special package sup¬ 
ports the 4054 dynamic graphics option 
enabling the designer to dynamically 
move symbols around rapidly and to the 
appropriate drawing scale. Symbols can 
be repeated along a line with several op¬ 
tions for automatic spacing as well as re¬ 
peated placement within an area. 

Menu Generation Program 

This program complements the Symbol 
Placement Program allowing the designer 

traces a symbol or object on the digitiz¬ 
ing tablet or creates it on the graphic 
screen. Using this program, new acetate 
menus also may be plotted then placed 
on the Touch Control Station™ or 
MENU BOARD™ at the digitizing ta¬ 
blet. 

Texturing Program 

Replacing press-on texture transfers, this 
program contains a wide range of area 
and line textures; for example, bricks. 


DRAWN FOR: USER 1.1-AUG-8 1 
PLOTTER : Tektronix 4663 

SOFTWARE: Arrigoni Computer Graphics, Inc. 
San Jose, California 



SITE PLAN / LANDSCAPE PLAN 


Figure 4. Curve fitting, dimensioning, polygons, circles and mirroring are just a few of the functions of 
the General Drawing Program. 
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Figure 5. Using the symbols provided (or he can design his own), the designer is freed from templates 
and press-on transfers. 
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concrete, shrubbery, insulation, shingles, 
flooring, and simple crosshatching. Any 
area or object may be textured, even ob¬ 
jects within objects — the doughnut ef¬ 
fect. When dealing with overlaid objects, 
the first object selected is textured while 
the next selected object within (or over¬ 
lapping) the first is ignored. 

The densities of the texturing patterns 
may readily be changed and the patterns 
rotated or shifted. 

Additionally, the program will calculate 
areas or lengths of line that are textured 
providing the ability to automatically 
measure and cost textured areas. For ex¬ 
ample, the linear feet of eight-foot stud 
walls with insulation or the number of 
square yards of carpet would be auto¬ 
matically calculated and saved for cost¬ 
ing at a later time. 

Annotation Program 





Figure 7. A wide range of area and line textures are available through the Texturing Program. 


As in all graphic applications, the text 
accompanying the drawings carries a sig¬ 
nificant amount of explanatory informa¬ 
tion. Therefore, sjov-en-fiml^ are provid- 
ed: Standard Lerov,. Helvetica-Medium. 
Ero-Stv^ e. British Inser at. Prisma 1 Aries 
and ClaiXJidim,.. „The designer mav also , 
letter s. Characters are 
^Lt^eii„and masLiie„siz.ed, jratalec j L and 
placed„anvwhexe on the drawings 



Figure 8. The Annotation Program includes seven 
fonts, four of the styles are shown here. 


Area/Line Measurement Program 

This electronic planimeter a llows the de¬ 
signer to identify areas for calculation 
even if they weren’t textured. For exam¬ 
ple, he could trace each room in a build¬ 
ing and calculate the total square feet as 
well as that for each room. Or, he could 
outline a roofline and cost it. The design¬ 
er may also identify a number of closed 
objects or polygons and add them 
together for area calculation. 

After creating one or more closed ob¬ 
jects or shapes, such as rooms or map¬ 
ping boundaries, the designer can re¬ 
quest the program to calculate the area 
or perimeter of each selected shape and 


draw the resulting numeric data at any 
location “touched” on the drawing. By 
naming each object, a table of areas and 
perimeters can be produced. 

If selected, the table of areas and 
perimeters may be sent to the Cost Esti¬ 
mating Program. 

Cost Estimating Program 

This program counts the number of sym- . 

bols on the drawing disk, the lengths of m 
lines and textured areas, and then writes \>.y 
this information on the screen. The de¬ 
signer may call on a master material/cost 
file (or enter the labor and material cost 
for each) and the program will extend 


8 


Tekniques 
Vol. 5 No. 3 












and accumulate the material and labor 
cost for the entire project. For example, 
if the design contains 500 standard elec¬ 
trical receptacles, the designer can enter 
a cost of $153 per 1000 receptacles and 
the program will automatically calculate 
the cost for 500. 

Updating a master costing file is simple 
and quick. The designer enters the cur¬ 
rent cost of an item and the program au¬ 
tomatically updates the master costing 
file. This feature may be employed to 
generate a series of cost estimates re¬ 
flecting different bids. Cost estimating is 
more accurate, more efficient and very 
quickly done. 

Production Plot Program 

Final drawings are generated through 
this program. It is extremely flexible, al¬ 
lowing the designer to reproduce an en¬ 
tire drawing or only a specified part. He 
may overlay an infinite number of draw¬ 
ings in any sequence. He might ask for 
an architectural floor plan with or 
without texturing, annotation, symbols 
or details. Or he could include a site plan 
in the corner of a drawing. 

After previewing the plot on the screen, 
it may be plotted in any scale, resulting 
in an original drawing then readily dupli¬ 
cated in a blueprint machine. He can al¬ 
so communicate this information to 
another computer using the 4050 Option 1. 



Utilities Programs 


Figure 9. Cost estimating is accurate, efficient and quickly done using the Cost Estimating Program. 


Ten utility programs for the designer 
take the drudgery out of using computer 
equipment through simple “yes-no” 
questions. The designer may copy draw¬ 
ings from disk to disk, or onto the same 
disk, allowing use of one drawing as a 
base to make another drawing. 


Special Applications 

Arrigoni Computer Graphics has also 
tailored versions of TOUCH ’N 
DRAW™ for specific disciplines and 
more programs are in the works. “They 
won’t do any more than the basic CADD 
system, but they do it more efficiently 
for that particular trade or application.” 
commented David Arrigoni. 

An example of a special application 
package is the Electrical/Electronics 
Schematics package. It has combined 
standard elements of the system to pro¬ 
vide a unique package for electrical engi¬ 
neers producing schematics drawings for 
electrical and electronic circuits. 



Figure 10. The Production Plot Program produces the final drawing. 
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The success of the Arrigoni Computer 
Graphics TOUCH ’N DRAW™ can be 
attributed to the excellent user interface. 
The designer simply auto loads a tape. 
The program prompts for input and 90% 
of the questions require “yes-no” re¬ 
sponses. Prompts and questions use ter¬ 
minology familiar to designers or drafts- 
men and purposely avoid 
“computerese.” Visual feedback through 
messages and lights on the Touch Con¬ 
trol Station™ keep the user informed of 
where he is. If the designer has to leave 
his system for a while, the status lights 
let him know where he was when he left. 

Although TOUCH ’N DRAW™ was de¬ 
signed to open up the opportunity for 
small to medium sized firms to use 
CADD Systems, the Systems application 
extends to the largest architectural firms 
and facilitates planning and management 
for Fortune 1000 companies. Thus, the 
System can handle extremely large pro¬ 
jects ; one customer is designing buildings 
totaling over three million square feet. 



Figure 11 . Electrical engineers producing schematic drawings for electrical and electronic circuits might 
choose the special ElectricallElectronics Schematics package. 


The total system (including the hard¬ 
ware, software, and training) may be 
purchased; or it may be leased at a 
monthly cost approximating that of an 
average draftsman. David Richards, 
President of Arrigoni Computer Graph¬ 
ics, indicates that productivity improve¬ 
ments of 3-5 times versus manual draft¬ 
ing are typical with this system. 


If you have further questions about the 
Arrigoni TOUCH ’N DRAW™ CADD 
System, contact Arrigoni Computer 
Graphics at 231 O’Conner Drive, San 
Jose, CA 95128 or phone (408) 286-2350. ' 


Note: As a service, TEKniques may publish no¬ 
tices of software, hardware and services from 
suppliers other than Tektronix. No evaluation 
pr endorsement by Tektronix, Inc. of these 
products or services is implied by such publica¬ 
tion. Tektronix, Inc., expressly disclaims any 
obligation of warranty or support. 




/f : . 
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Digitized curves of constant nuclear polarization in nuclear D(d,n)He 3 reactions. A point grid adds 
visual reference points. 

New PLOT 50 Digitizing Software 
Encodes Graphic Images 


by Paul J. Kristof 
Tektronix, Inc. 

Wilsonville, OR 

4052DQ7 PLOT 50 Interactive Digitizing 
solves the data entry problem for a vari¬ 
ety of applications. By coupling the digi¬ 
tizing tablet with the graphic display and 
computational power of the 4052 and 
4054 desktop computers, disk-based In¬ 
teractive Digitizing efficiently and conve¬ 
niently encodes graphic images for com¬ 
puter analysis or processing. Stripcharts, 
graphs, maps, X-ray photographs, 
electromicrographs, and other images are 
readily translated into machine digestible 
form. Immediate preview and editing 
help ensure the transmittal of “clean,” 
error-free data. Mathematical functions 
calculate area, perimeter, centroids or 
line lengths. Document labeling and text 
may also be transmitted. 

Interactive Digitizing supports PLOT 50 
Standard File Format 1 and Graphic Ex¬ 
change Format 2 . Curves encoded from 
stripcharts, or area and centroid values 


Standard File Format is discussed in TEK- 
niques Vol. 4 No. 1. 

2 Graphic Exchange Format is discussed in 
TEKniques Vol 5 No. 2. 


from digitized polygons may be sent to 
PLOT 50 Easy Graphing 3 or PLOT 50 
Statistics 4 for graphing or analysis. Pic¬ 
ture data can be sent to PLOT 50 Picture 
Composition 5 for inclusion in illustra¬ 
tions. In any case, you need not re-enter 
the data. 

Data may be encoded in real world coor¬ 
dinate units and the X and Y axes may 
be independently scaled. For example, to 
digitize experimental data from a nuclear 
reaction, you could set X units to volt¬ 
age in Mevs and Y units to reaction an¬ 
gle in degrees. Documents larger than 
the tablet surface are easily handled. 

Interactive Digitizing consists of four 
major sections: 

TUTORIAL 

AUTOLOAD 

ENTRY/EDIT 

UTILITIES 

The TUTORIAL gives you a guided tour 
of Interactive Digitizing. It illustrates 


3 Easy Graphing is described in TEKniques Vol. 
4 Nos. 2, 3 and 4. 

Statistics: Disk-based Tests and Distributions is 
described in TEKniques Vol. 4 No. 5. 
5 Picture Composition is described 
in TEKniques Vol. 5 No. 1. 


many of the features and shows a typical 
sequence of activities to create a digi¬ 
tized data file. 

The AUTOLOAD section sets up the op¬ 
erating characteristics of the package. 
Disk assignments and peripheral device 
selections are set or modified at this 
time. 

The ENTRY/EDIT section creates or ed¬ 
its digitized data files. 

The UTILITY section applies file and 
system manipulation functions. 

Digitized Data Files 

First, we’ll take a look at the format of 
the digitized data file. 

Document features are recorded in the 
“digitized data file,” an ordered list of 
objects. Coordinate data and document 
text is encoded in five object types: 

POINT 

A single (x,y) coordinate. 

POLYLINE 

A set of connected lines or circular 
arc segments. 

POLYGON 

A polyline in which the first and last 
points are the same (a closed figure). 

TEXT 

A set of scalable and rotatable charac¬ 
ters. 

SYMBOL 

A set of points, line segments, arcs 
and text (not necessarily connected) 
that can be located, scaled and rotat¬ 
ed as a unit. 

In addition to the graphic descriptions, 
each object has an object identification 
(ID) number, and may have an object 
name and a set of numeric or string at¬ 
tributes. The system assigns the object 
ID number when an object is stored in 
the data file. This identifies the object 
for editing. 

You may assign a thirty-six (max) char¬ 
acter name to each object. 

A powerful feature of the package is the 
ability to assign up to five unique attrib¬ 
utes for each object and (optionally) 
have the program prompt for these at¬ 
tributes. The attributes are specified as 
numeric or alphanumeric and named. 
The object’s name and its attributes may 
then be used by software that has been 
custom-designed to look for and process 
them. 
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Thus, a data file might consist of: 

• The map of Arizona encoded as 
Polyline objects, with two 
numeric attributes: left county id and 
right county id. (See figure 1.) A sep¬ 
arate host program could then use the 
coordinate data and the attributes to 
reconstruct the counties as polygons. 

• The map of Oregon showing big game 
management units encoded as 
Polygon objects with an object name and 
a numeric attribute. The name of the 
area was entered for the object name. 
The attribute, UNIT CODE, identifies 
each polygon. Additionally, the area of 
each polygon was calculated as it was 
digitized. 

The UTILITY program, List Data 
File, may be used to output the size 
of each unit in square miles (figure 2). 
The area information could also be 
transmitted to the PLOT 50 Statistical 
volumes for study. 

• The contours in figure 3 were encod¬ 
ed as Polylines and Polygons with a sin- 
le numeric attribute, LEVEL, to hold 
the elevation value for each line. 



Figure 1. A map of the counties of Arizona encod¬ 
ed as polylines. The numbers appearing adjacent 
to the lines are the object ID numbers assigned by 
the system. 



Figure 3. Choosing menu item INFO displays the 
status of your current operation. 


Briefly, that is the structure of the digi¬ 
tized data file. Getting the image encod¬ 
ed from the document to a digitized data 
file is easy and flexible. ff \ 

Vy 

EDIT/ENTRY 

Interactive Digitizing is menu driven for 
convenient function selection. The 
ENTRY/EDIT section is tablet menu 
driven. Simply locate the tablet menu 
anywhere on the tablet surface along 
with your document. To choose a func¬ 
tion, just place the tablet cursor over the 
appropriate menu box and digitize. The 
package prompts you for additional in¬ 
put. 

Tablet menu (figure 4) functions are gro¬ 
uped into seven functional blocks: 

• OBJECT ENTRY 

— mode selection 

— object insertion control 

— area/length/centroid calculation 

— point entry and immediate edit 

• DISPLAY CONTROL 

— highlighting of current object 

— redraw 

— window selection 

— point previewing 

• EDIT CONTROL # 

— data file object sequence ^ ^ 

— object 

• SYMBOL CONTROL 

— symbol selection 

— scale and rotation setting 

• ENVIRONMENTAL PARAMETERS 

— feature selection 

— value setting 

— parameter display 

• ALPHANUMERIC KEYBOARD 

• SUPPLEMENTAL FUNCTIONS 

— plotting 

— setting new data file 

— display system information 

— extend axis 
— HELP 


INTERACTIVE DIGITIZING TABLET MEMO 1__’fcldTOniX 


TIT 

CANCEL 


LAST 
POINT ^ 

END 



SYMBOL 
SCA ft ROT 

SELECT 
SYMBOL N 

SYMBOL 

FILE 

PLOT 

CONTROL 

POINTS 

VIEW 


SET 

AXIS 

LOCK 


IDS 

DISPLAY 

OBJECT 

NAMES 


CALC 

JOYSTICK/ 

THUMB¬ 

WHEELS 


AUTB 

OBJECT 

END 


HELP 


OBJECT 

s 


OBJECT 

0 

END 


, 




SET 

DATA FILE 

IMAGE 

ENV 

TOLERANCE 

SNAP-TO 
GRID 

ON 

REQUIRE 

OBJECT 

NAMES 

REQUIRE 

OBJECT 

MESSAGES 

MESSAGES 

AXIS 


GRID 

OFF 

END 

SESSION 


POLYLINE 

POLYGON 


SYMBOL 

LENGTH I 
CENTR0IP| 

AFTER 






INFO 

AXIS 

EXTENSION 

PARM 


DISTANCE 


DEGREES 

— 

KEYBOARD 

TOLERANCE 

DISTANCE 

BEUS 

BEUS 


UTILITIES 

S 


— 

OUT 

FULL 

NUMERIC 

WINDOW 

“ 

PREVIEW 



10 



RUB OUT 

+ 

- 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 


1 

"sT 





POW 







BACKSPACE 

A 

B 

c 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

SPACE 



IT 

EDIT 

OBJECT 


I— 

T«T 

■ 

» 

18 


»• 

CLEAR 

N 

0 

p 

Q 

R 

S 

T 

U 

V 

W 

X 

Y 

Z 

RETURN 





Figure 4. Tablet menu functions are grouped into seven functional blocks. 
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— end current session 

— access UTILITIES 

— redefine control points 

In addition to the tablet menu, a User- 
Definable Key (UDK) overlay is 
provided (figure 5). All the EDIT func¬ 
tions are duplicated on the UDK over¬ 
lay. By using the UDKs, the 4050 key¬ 
board, and the thumbwheels or joystick, 
all editing may be performed at the 4050 
with no need to reference the graphics 
tablet. 


INTERACTIVE DIGITIZING TAPE 1 DISK 1 TABLET MENU 1 



Figure 5. All the EDIT functions are duplicated 
on the UDK overlay. 

The object entry functions of begin arc, 
delete last point, and end object may also 
be entered from the optional four button 
tablet cursor. 

You may preview the data on the 4050 
screen before entering it into the data 
file. Prompt messages appear along the 
left edge of the square data entry display 
area (figure 6). A character in refresh, 
above the left edge of the display area 
reports the current operational status of 
the package. 



Figure 6. A blinking character above the data dis¬ 
play area provides status information: 

E - points may be digitized or tablet menu items 
selected 

I - Input from the tablet keyboard 
M - Edit (modify) mode 
D - Display Coordinate 
P - Preview Coordinate 


Special Features 

Interactive Digitizing includes a number 

of features to make digitizing easier, 

quicker, and more convenient for you. 

These include: 

• Immediate Editing — While entering 
an object, you can delete the last digi¬ 
tized point or the current object, edit 
the object name or attributes, or re¬ 
specify the scale or rotation of text 
and symbol objects without explicitly 
entering the EDIT mode. This makes 
input errors easy to correct. 

• Audio Feedback — A single bell sig¬ 
nals acceptance of a digitized point, 
and multiple bells signal a warning or 
improper input message. They may be 
turned on or off. 

• Selectable Viewing Windows — You 
may select from three different win¬ 
dowing functions the document area 
you wish to view on the screen. Re¬ 
draw functions are optimized to ac¬ 
cess only those objects intersecting 
the currently selected window. 

• System Configuration Files — You on¬ 
ly set peripheral device addresses 
once, or when they change. The sys¬ 
tem automatically remembers them. 

• Axis Extension — You can easily han¬ 
dle documents larger than the tablet 
surface, such as long stripcharts. Just 
select two points, reposition the docu¬ 
ment, and redigitize the original two 
points. The system automatically ad¬ 
justs the tablet to user coordinate sys¬ 
tem transformations. 

• Tablet Menu Keyboard — By 

selecting the tablet menu keyboard, 
you can answer all ENTRY/EDIT 
prompts from the tablet, without re¬ 
turning to the terminal keyboard. 

• Area/Length/Centroid Computations — 

You may compute at any time and di¬ 
rect the output to a line printer. The 
results of these computations may al¬ 
so be placed in the Standard Format 
File and Graphic Exchange File. 

• Auto Mode for Repetitive Entry — 

Auto object end combined with poly¬ 
gon closure (automatic closure of a 
polygon object when the next point 
digitized is within a user-specified 
tolerance of the first point), require 
object names and require object attrib¬ 
utes increases efficiency for repetitive 
data entry. As each object is closed, 
the program will prompt for its name 
and attributes, then automatically 


store it in the digitized data file. Com¬ 
bining the four button cursor and auto 
object end allows for repetitive entry 
of similar object types without having 
to return to the tablet menu. 

• Snap-to-Grid/Axis Lock — You may 
elect to digitize points in user-speci¬ 
fied increments, for example, 100 
feet. The next point digitized is 
snapped to the nearest grid point with 
snap-to-grid on, and/or the nearest 
axis with axis lock on. 

• User-Specified Coordinate System — 
You digitize your application coordi¬ 
nate units with independent scaling of 
the axes. 

• HELP — 

HELP will instruct you in 
the operation of any menu box or 
User-Definable Key. 

UTILITIES 

Interactive Digitizing provides a full 
complement of utilities programs. The 
UTILITIES section is accessed from the 
4050 keyboard. A master screen menu 
controls the function selection (figure 7). 
The User-Definable Keys interrupt any 
utility and return control to the start of 
the currently active utility, to the master 
selection menu, or end the current ses¬ 
sion. 


« PLOT 50 INTERACTIVE DIGITIZING UTILITIES » 

Function key 10 (Utilities) and 20 (End Session) arc active. 
All others will restart the utility. 

INTERACTIVE DIGITIZING FILE UTILITIES 

1. Get Files 

2. Put Files 

3. Delete Files 

4. Renane Files 
3. Directory 

INTERACTIVE DIGITIZING SYSTEM UTILITIES 

6. Edit/Display Symbol File 

7. Change Disk Configuration 

8. Edit Default Environnental Paraneters 

9. Change Hardware Configuration 

GENERAL INFORMATION 

10. List Data File 

11. HELP 

12. Return to Entry/Edit 
Select one of the above: 


Figure 7. The UTILITIES routines are accessed 
through the screen menu. 

Three major functional groups comprise 
the utilities: those dealing with data files, 
those which modify the current system 
configuration, and those providing gener¬ 
al information. 

Interactive Digitizing recognizes five sep¬ 
arate file types: 
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Digitized Data — encoded document 
Symbol — symbol set 

GMX Picture — 

GMX FONT - I plot 50 
( transmittal 
Standard Data — ) files 

UTILITIES programs rename, delete, 
and list a directory of all files. In addi¬ 
tion, the standard functions of GET 
FILES and PUT FILES transfer files be¬ 
tween mass storage devices and other 
PLOT 50 software products. 

Symbol files (figure 8) may be created 
from digitized files, edited, displayed or 
plotted by the EDIT/DISPLAY SYM¬ 
BOL FILE utility. 

The current or default values for disk se¬ 
lections, peripheral device addresses, 
and environmental parameters can be 
changed any time by using the other 
UTILITIES. 

The General Information utility, LIST 
DATA FILE, provides screen or line 
printer output of coordinates, attributes, 
and computations associated with a digi¬ 
tized data file. 

As with the ENTRY/EDIT section, 
HELP is available for refresher informa¬ 
tion on how each utility operates. 



Figure 8. Symbols created using Interactive Digi¬ 
tizing. Symbols may be included in any digitized 
data file. 

DATA FILES 

Three major levels of access to digitized 
infomration is provided: GMX, Standard 
Data and Digitized Data files. 

The information in the digitized data file 
consists of that associated with the file 
as a unit, e.g., number of objects in the 
file, data file extent, aspect ratio, and 
that associated with each specific object, 
e.g., number of points per object, object 
ID, object name, coordinates, object at¬ 
tributes, and computations. 


All of the information in a digitized data 
file may be stored in the GMX file trans¬ 
fer format. Data file global information is 
recorded in the file descriptor records, 
and object specific information is record¬ 
ed as object descriptor records and point 
descriptor records 7 . 

Object geometry and object attributes 
(numeric only) may be output in two 
separate Standard Data files (see figures 
9a-9b). 

In addition to the GMX and Standard 
Files, the digitized data file structure is 
fully documented in the manual for those 
users desiring direct access to the digi¬ 
tized data base. 


7 Refer to TEKniques Vol. 5 No. 2 for a full 
description of GMX Picture File 
format. 


4052D07 PLOT 50 Interactive Digitizing 
is a sophisticated, yet easy-to-use system 
supporting a varied equipment configura¬ 
tion. A 4052 or 4054 with 64K of memo¬ 
ry, a 4907 File Manager and 4956 Graph¬ 
ics Tablet is the minimum configuration. 
However, it will also support a 4907 File 
Manager with Option 30 or 31 (dual or 
triple drive units). 

Editing input may be from the 4054 
thumbwheels or a 4952 joystick. 

Graphics output may be directed to a 
4662 or 4663 Plotter; listing output may 
be directed to a 4641 Printer. 

For more information on Interactive Dig¬ 
itizing, contact your local Tektronix 
Sales Engineer. 


VARIABLES: 


OBJECT ATTRIBUTE STANDARD DATA FILE 


Object-name 

0 

B 

S 

E 

R 

V 

A 

T 

I 

0 

N 

Object 

Type 

Centroid 

x 

Centroid 

y 

Length 

Area 

Scale 

Rotation 

Symbol 

ID 

Attribute 

1 


Attribute 
n 













S V__ J 


Variables are included only as they apply to an included object type. 
For example, if symbols are not written then symbol ID is not included. 


Variables 


OBJECT TYPES: 1 Point 

2 Line 

3 Polygon 

4 Text 

5 Symbol 


Length 

Centroid - x, centroid - y, area, length 

Scale, rotation 

Scale, rotation, symbol 10 


/T 




Figure 9a. When object attributes are transferred, an Object Attribute Standard File is the result. 


OBJECT GEOMETRY STANDARD DATA FILE 
VARIABLES 


Object-name 


NOTE: No alpha-numeric 
variables are supported in 
any way. This includes alpha 
attributes and text description. 


Object 

Type 


y Coord. 


Point 

Type 


OBJECT TYPE: 1 = Point 

2 = Polyline 

3 = Polygon 

4 = Text 

5 = Symbol 


POINT TYPE: 0 = Line Segment 

1 = ARC Start 

2 = ARC Middle 


Figure 9b. When object coordinates are transferred, an Object Geometry Standard File is the result. 
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Graphic Systems Workshops 


4050 Series Graphic Computing Systems 
Workshop ? are designed to help you get 
the most out of your systems. These 
week-long .workshops are held in several 
locations around the country. Dates and 
locations for these workshops are de¬ 
tailed here. 

The workshops teach the application of 
BASIC and the concepts of desktop 
computer graphics. The classes empha¬ 
size integrating and using TEKTRONIX 
4050 Series Graphic Computing Systems 
with their associated peripheral equip¬ 
ment. The full range of Graphic Compu¬ 
ter System equipment is available in the 
workshops. 

The workshops combine lectures and 
exercises to develop a working knowl¬ 
edge of system capabilities. Laboratory 
sessions complement and reinforce lec¬ 
ture information, through developing 
practical examples. When you complete 
a session, you’ll have the skills neces¬ 
sary to apply the system capabilities to 
your own tasks. 


Locations and Schedules 


The .workshops are scheduled through 
four basic locations, as shown on the 
schedule. Currently, the following places 
and times are scheduled: 


Santa Clara, CA 
Rockville, MD 
Rockville, MD 
Santa Clara, CA 
Dallas, TX 
Santa Clara, CA 
Rockville, MD 
Rockville, MD 
1981 

Santa Clara, CA 
1981 

Dallas, TX 
Santa Clara, CA 
Vancouver, BC 

For Information 


Sept. 14-18, 1981 
Sept. 21-25, 1981 
Oct. 5-19, 1981 
Oct. 12-16, 1981 
Oct. 26-30, 1981 
Oct. 26-30, 1981 
Nov. 2-6, 1981 
Nov. 30-Dec. 4, 

Nov. 30-Dec. 4, 

Dec. 7-11, 1981 
Jan 4-8, 1982 
Jan 18-22, 1982 


If you’re interested in attending one of 
these sessions, or think you might be, 
you can get additional inforamtion by 
contacting your local Tektronix Sales 
Engineer. Or you can call Sam Dunn at 
(503) 644-0161, ext. 8660. She can pro¬ 
vide information on other workshops as 
well, such as the recently-established 
4020 Series Terminal workshop. 


450K Cartridge Tape 


Have you ever wished you could: 


FIND 0 

MARK 1,450000 


without getting an error message indicat¬ 
ing the end of tape has been found? 

Now you can. A tape is now available 
that can record up to 450.000 bvte s. 50% 
more than the standard tape. The new 
tape can be ordered usin g pa rt mimbfeE.. 
LLL1439-01 for a box of five,, Contact 
your local Tektronix representative. U.S. 
price for the h/yi-of. five i$900 The 
standard tape is still ordered by part 
number 119-0680-01 for a box of five. 
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Input/ 

Output 


John Bartholow, a Resource Analyst with 
the Fish and Wildlife Service in Fort Col¬ 
lins, CO, requests: 

Would you please explain how the BA¬ 
SIC command RENUMBER works. 
That is, what is the algorithm used to 
perform the renumbering? 

Dan Taylor, Design Engineer at Tektro¬ 
nix, explains. 

Each line of code in memory includes 
(among other things) the internal memo¬ 
ry address of the preceding line of code, 
the hardware address of the next line of 
code, the line number of the present line 
of code, and the code. 




(statement 
number) (code) 


h/w address 

h/w address 


of next line 

of back 

100 

of code 

line of code 



h/w address 

h/w address 


of next line 

of back 

117 

of code 

line of code 



A. 


h/w address 

h/w address 


of next line 

of back 

200 

of code 

line of code 



h/w address 

h/w address 


of next line 

of back 

224 

of code 

line of code 



h/w address 

h/w address 


of next line 

of Back 

300 

of code 

line of code 



GO TO 200 


IF . . THEN 300 


GO TO 100 


REM 1 


REM 2 


Step 3. It uses the space allocated 

for the back pointers as 
scratch space to store the 
new line numbers. At this 
point each statement in¬ 
cludes (among other 
things), the hard address 
of the next line of code, 
the new line number, and 
the old line number. 

Step 4. It searches through all in¬ 

ternal code for statements 
containing a line number, 
i.e., GOTO, GOSUB, 
GOSUB OF, IF . . . 
THEN, etc. When found 
it changes the line num¬ 
bers therein to the new 
line numbers. 

Step 5. Once this is done, it 

moves the new line num¬ 
bers from the scratch area 
(back pointer area) to the 
line number area and re¬ 
creates the back pointers. 

Because it uses the back pointer storage 
space for the new line numbers, the RE- 
Number command execution doesn’t re¬ 
quire additional 4050 memory. 

Step 1. Check first line affected. 

X 

RENumber 1000, 10, 200 

/ 

Step 2. Does new number clash with old? 


h/w address 
of next line 
of code 

h/w address 
of back 
line of code 

346 

REM 3 

( 

h/w address 
of next line 
of code 

h/w address 
of back 
line of code 

100 


* 



* 


h/w address 

h/w address 



h/w address 

h/w address 


of next line 

of back 

416 

GO TO 200 

of next line 

of back 

117 

of code 

line of code 


/ 

of code 

line of code 



When you key in the command: 

RENumber 1000, 10, 200 

this is what happens when it’s executed. 

Step 1. The system checks the 

first line affected (i.e., 

200 ). 

Step 2. It verifies that the new 

first number won’t clash 
with non-renumbered 
code. If it does, it prints 
an error message and 
aborts execution. In other 
words, you can’t change 
the sequence of your code 
through the RENumber 
command. 


h/w address 
of next line 
of code 


Step 3 Step 5 
1000 - 


200 

> 


1000 — Step 4 
GO TO 200 


1020 — Step 4 
IF . . THEN 300 


GO TO 100 


h/w address 
of next line 
of code 


1010 - 


224 

* 


h/w address 
of next line 
of code 


h/w address 
of next line 
of code 


1020 - 

31 


300 

* 


1030 


346 

► 


h/w address 
of next line 
of code 


1040 


416 

* 


REM 1 


REM 2 


REM 3 


1000 — Step 4 
GO TO 200 
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Operator Digitize 
on the 4663 

Hugh Wilson and Grady Allman of Amer¬ 
ican ENKA Company, Enka, NC sent in 
their observations on the 4663 Operator 
Digitize Mode on the 4663 Plotter. 

Plotter. 

We could not get the documented 4 6 Oper¬ 
ator Digitize” to work correctly on the 
4663 Plotter. Subsequent firmware revision 
(to level 4.0) and programming tips (TEK- 
niques Vol. 4 No. 6, page 14) failed to resolve 
all the problems. 

As a result of many attempts, we hap¬ 
pened upon an unexpected and unortho¬ 
dox solution. Instead of using the GPIB for¬ 
mat described in the manual for the Plotter 
command, the RS-232 version of the com¬ 
mand written in a GPIB BASIC program 
works better! Also, we found that INIT did 
not clear the memory of the Plotter as ex¬ 
pected but the additional WBYTE @B,4: 
(where B is the primary listen address of the 
Plotter) was required to clear Plotter mem 
ory. Using both of these together appears to 
work correctly, (i.e., as reported in your 
documentation). 

Mike DeAndrea and Javad Farjami, Tek¬ 
tronix Technical Support specialists at 
Wilsonville, OR, explain the documenta¬ 
tion error and how INIT and WBYTE 
work. 


The wrong command was inadvertently 
inserted in the “Commands” section of 
the Operator’s manual. The DAB com¬ 
mand for “Operator Digitize’’ is 
PRI@D,32:“AG”,(# of points) and is 
correctly listed in Appendix I — Com¬ 
mand Summary. 

Init sends Interface Clear which causes 
the GPIB interface to clear addresses to 
itself and to clear the Service Request 
status. However, as defined in the 


IEEE488 standard, it has no other effect 
on the operation of the plotter. The De¬ 
vice Clear message according to GPIB 
convention does clear both input and 
output buffers of the plotter and is sent 
by WBYTE @20: for all devices on the 
GPIB or WYBYTE @32 + (device ad- 
dres),4: for a specific device. 


100 PRI "THIS PROGRAM UTILIZES OPERATOR DIGITIZE WITH THE 4663 PLOTTER." 
110 PRINT USE MOVE AND DRAW BUTTONS ON PLOTTER TO ENTER ALL POINTS. " 
120 PRINT "YOU MAY USE 'LAST POINT' BUTTON TO STOP DIGITIZING." 

130 PRINT NOTE: AFTER ENTERING MAXIMUM NUMBER OF POINTS. THE NEXT " 
140 PRI "POINT ENTERED WILL BE TRANSMITTED AS THE 'LAST POINT' WHETHER" 
150 PRINT " THE DRAW, MOVE, OR LAST POINT BUTTON IS PRESSED!" 

160 PRINT " ENTER GPIB ADDRESS OF PLOTTER 
170 INPUT A 

180 REMARK The VARIABLE B is The primory lisien address for The ploiier. 

190 B=A+32 

200 ON SRO THEN 320 

210 REMARK This WBYTE command is necessary to clear The ploiTer memory. 
220 WBYTE 6B,4 ; 

230 PRINT " GGG TYPE IN THE MAXIMUM NUMBER OF POINTS TO DIGITIZE : 

240 INPUT P" 

250 REMARK P IS INCREMENTED TO ALLOW FOR 'LAST POINT' TRANSMISSION 
260 P=P+1 
270 PAGE 

280 PRINT GA ,32:"AG",P 

290 REMARK z = 0 means MOVE 

300 REMARK z=1 means DRAW 

310 REMARK z-2 means LAST POINT 

320 FOR 1=1 TO P 

330 INPUT GA, 32 : X , Y , Z 

340 GO TO Z OF 370,390 

350 MOVE X,Y 

360 GO TO 380 

370 DRAW X.Y 

380 NEXT I 

390 WBYTE GB.4: 

400 END 
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* Editor’s 
Note 


Applications Library Programs 
Consolidated 

Quicker turnaround time and dollar sav¬ 
ings for users should be the result of the 
just-completed Applications Library 
revised order procedure. 250 programs 
have been consolidated into 27 
tapes/disks. An accompanying article de¬ 
tails the reorganization. 

TEKniques Schedule 

We started the year on schedule with 
TEKniques Vol. 5 No. 1. But due to the 
Applications Library changeover, TEK¬ 
niques ’ schedule slipped and Vol. 5 No. 
2 was distributed in May rather than 
March. Unfortunately, we slipped again 
on No. 3, which is being distributed No¬ 
vember 11. We will be back on track; 
however, the time remaining allows us to 
do only one more issue. TEKniques Vol 
5 No. 4 will be out December 15. We 
feel the streamlined order procedure for 
the Applications Library will be worth 
the inconvenience. 


Contest Winners Announced 
in Next Issue 

The Applications Library program con¬ 
solidation required more time than antici¬ 
pated. Consequently, judging of the 
Graphic Contest was delayed. The judg¬ 
ing is now in progress and winners will 
be notified by September 1, and an¬ 
nounced in the December issue of TEK¬ 
niques. We apologize for the delay. 


Back Issues and Reprints from 
TEKniques 

TEKniques is in its fifth year of publica¬ 
tion. Issues from the first three years 
(Volumes 1 — 3) have all been distrib¬ 
uted. However, most of the articles from 
those issues have been assembled by ap¬ 
plication area and are available in the 
following reprints: 


Programming Tips Handbook 

The programming tips from the first 
three years have been collected into a l 
handy booklet which is included in the 
Programming Aids T2 tape documenta¬ 
tion (part #062-5972-00). 

Check Your 4907 File Manager 

The first programming tip “Disk Change 
May Damage 4907 Files” contains im¬ 
portant information. Please follow the in¬ 
structions in that tip to check the 
operation of all units of your 4907 File 
Manager. 


Engineering and Design. AX4449 

Mapping. AX4460 

Data Acquisition and Analysis .. AX4450 
Business Graphing and 

Reporting . AX4451 

Peripherals and ROM Packs .. AX4452 


If you need an article from one of these 
previous volumes, and don’t have your 
copy, one of the reprint sets will likely 
fill your needs. To obtain a copy of one 
of the reprint volumes, just contact your 
local Tektronix Office or the Applica¬ 
tions Library Office serving you. 

And, of course, back issues of TEK¬ 
niques Vol. 4 (1980) and Vol. 5 (1981) 
will continue to be available from the 
4050 Series Applications Library office 
that serves your area. 
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by Jack Gilmore 
and Mike DeAndrea 
Tektronix, Inc. 

Wilsonville, OR 

The disk change circuitry in the 4907 de¬ 
tects when a disk is removed. It prevents 
forwarding of information from one disk 
to the next when changing disks. The 
change is detected differently, depending 
on which drive was used last. 

You can verify that the circuitry is work¬ 
ing properly without disassembling the 
4907 by performing the following proce¬ 
dure: 

Step 1: Type “UNIT 0” 

Step 2: Insert a formatted scratch 

diskette in drive 0 and 
type 

CALL “MOUNT”,0,A$ 

Step 3: Remove and reinsert the 

diskette in drive 0. 


Type CALL ‘ ‘DSTAT’ ’,3 ,A$ 
(to select 

some other non-existent 
drive). 

Remove and reinsert the 
diskette in drive 0. 

Type “DIR”. A disk not 
mounted error should 
again appear if this part of 
the disk change circuitry 
is working. 

Repeat this procedure for the other 
drives in your system, replacing the 0 in 
Step 1, Step 2, Step 3, Step 5, and Step 
7 with the appropriate drive number. 

If problems are encountered — if the er¬ 
ror messages don’t appear — contact 
your local Tektronix Service Center. 


Disk Change May Damage 4907 Files 

Step 6: 

Step 7: 
Step 8: 


Step 4: Type “DIR”. A disk not 

mounted error should ap¬ 
pear if the circuitry is 
working. 

Step 5: Remount the disk: CALL 

“MOUNT”, 0,A$. 


Convert Decimal to Multiplier Notation 


by Mike Wadzita 

Tektronix, Inc. 

Rockville, MD 

The following subroutine may be useful 
to 4050/492P spectrum analyzer users or 
may apply to other applications that in¬ 
volve frequency information. The 
subroutine will convert a numeric value 
to its equivalent multiplier format for 
printing, i.e., Hertz, Kilohertz, Me¬ 
gahertz, or Gigahertz. A simple drive 
program is included. 


100 init 


110 REM - SIMPLE TEST PROGRAM - 


120 FOR 1-0 TO 11 


130 F«1.234*10tl 


140 PRINT "I"jFri ->I"J 


150 G0SUB 210 


160 NEXT I 


170 END 


200 REM - CONVERT DECIMAL • TO MULTIPLIER NOTATION - 

210 Q$*"6KMG" 


220 F-F*1.0E+10 


230 A$*STR<F) 


240 A-P0S<A$,-EM> 


250 D$*SEG<A$,2,A-2> 


260 M-VAL<D$) 


270 D*-SEG<A*,A+2,LEN<At>) 


280 E*UAL<D$>-10 


290 M«M*10t<E-3*INT<E/3+0.33>> 


300 C$*SEG<Q*,1+INT<E/3M> 


310 PRINT MU "jC$UHz M 


320 RETURN 


1.234 -> 

1.234 Hz 

12.34 -> 

12.34 Hz 

123.4 -> 

123.4 Hz 

1234 -> 

1.234 KHz 

12340 -> 

12.34 KHz 

123400 -> 

123.4 KHz 

1234000 -> 

1.234 MHz 

1.234E+7 -> 

12.34 MHz 

1.234E+8 -> 

123.4 MHz 

1.234E+9 -> 

1.234 GHz 

1.234E+10 -> 

12.34 GHz 

1.234E+11 -> 

123.4 GHz 
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Auto Log-On for Honeywell TSS 


by Andy Galewsky 
Big Thicket National 
Preserve 
Beaumont, TX 

This auto log-on routine is set up for 
Honeywell TSS. The program assumes 
you know how to turn on the modem 
and connect the phone to it. 

The loop in statement 200 allows the 
connection to settle down before sending 
the carriage return to begin the log-on 
procedure. 

On the Honeywell, the clear-to-send 
character is a Control-Q rather than a 
carriage return. Therefore, statement 260 


sets the alternate EOL (end of line) char¬ 
acter to Control-Q which enables the 
4050 to recognize the request for the 
password. If this were not done, the pro¬ 
gram would loop endlessly when the 
mainframe sent the password request. 
The alternate EOL character is reset be¬ 
fore the program is exited. 

The proper account-number password 
sequence must be inserted into statement 
320. 

This short program offers some interest¬ 
ing possibilities. Instead of a call “TER¬ 
MIN’’ at statement 340, you could have 
a BASIC program running in the 4050 is¬ 
sue commands to the mainframe that 
would be transparent to the user. 


1 REM Auto Log-on Routine 

2 INIT 

3 M$«CHR<13) 

100 PAGE 

110 REM Initialize the conn interface or set paranetcrs 
120 CALL "CMINIT" 

130 REM CALL . . . 

140 REM CALL . . . 

150 REM CALL . . . 

160 DIM A*<400) 

170 PRINT "Please turn on noden. Dial 838-3761. Log-on will begir 
180 PRINT "<<<attenpting to connect to renote >>>" 

190 CALL “CMSET* 

200 FOR I«1 TO 580+2238*<RND<0>>0.2) 

210 REM DO NOTHING 
220 NEXT I 
230 REM SEND CR 
240 PRINT 840'.M* 

250 REM Set alternate EOL to CTL-Q 
260 PRINT 037,0:17,255)255 
270 INPUT V.40:A* 

290 REM Reset EOL to CR 

300 PRINT 037,0:13,253,233 

320 PRINT 040:"AccountMPassword" 

330 PRINT "<<< Logged on. Begin ... »>" 

340 CALL "TERMIN" 


Switchback Plotting 


by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

Many programs use data arrays and 
commonly output the contents from top 
to bottom, in the left-to-right order that 
printers use. When the number of col¬ 
umns and rows is small or the output is 
to the 4050 display, the technique is easy 
to program. However, when using the 
plotter, extra time is taken for the pen to 
move from the right column back to the 
left column for starting the next row. 


LIS 

108 REM "Switchback” Output 

110 INIT 

120 Nl-13 

130 N2-10 

140 B*1 

150 J1-N2 

160 J2-1 

170 J3—1 

175 D«1 

180 FOR R*J1 TO J2 STEP J3 
190 I1-1*B+N1*(N0T(B>) 

280 I2-N1*B4-1*(N0T(B)> 

210 I3«1*B-1*(N0T<B>> 

220 FOR C«I1 TO 12 STEP 13 

230 REM Plot or print data at colurin C, row R 
240 REM For cxanpl«: 

250 MODE 0D:C*10-5,R*10-5 
260 PRINT 0D:J 
270 NEXT C 
280 B-NOT(B) 

290 NEXT R 
300 END 


The variable B controls the horizontal di¬ 
rection of each row: 

B = 1 for left-to-right 
B=0 for right-to-left 

Line 280 reverses the direction used on 
the previous row. In addition to saving 
time when plotting, this feature will often 
cause observers to ask “How did they 
do that?” 


When plotting large arrays and using the 
low speed setting of the 4662 Plotter, the 
following technique can save time. 


Easy Curves Revisited Again 

by Richard Stage 

Stage Engineering, Inc. 

San Diego, CA 

I finally got around to trying the Easy 
Curves routine featured in TEKniques 
Vol. 3 No. 4 and again in Vol. 3 No. 8. 
However, I found it still divided by zero. 
Line 460 appears to be in error. It should 
read the same as line 380: 


460 M2*<X3-X2)/<Y2-Y3> 


I made this change and it seems to work. 
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Omn-Direction Arrows Update 


by Ir. A. C. Visser 

Institute for Land and 
Water Management 
Wageningen, 

The Netherlands 

The calculation of the coordinates for 
drawing an arrow as described in TEK- 
niques Vol. 4 No. 6 can be done much 
easier than is listed in the program. The 
following program positions and orients 
the arrows in the same way, i.e., move 
the plotter joystick until the arrow tail is 
positioned, then press User-Definable 
Key (UDK) #1. Next, position the ar¬ 
row head and press UDK #1. The arrow 
will be drawn. Continue until all arrows 
requested have been positioned and 
drawn. 



The differences between the old version 
and the new version are: 


Differences between the old version (TEKniques 4.6 page 21) and 
the new version (developed by Ir.A.C.Visser) of drawing omni¬ 
directional arrows. There are in the new version no particular 


DELETED: 

100,100 
110,160 
190,220 
395,490 
540,680 
720,990 

CHANGED = 

3 GO TO 102 

4 GO TO 302 

170 PRINT ”LNO. OF ARROWS: " ; 

230 DIM G(NI,4) 

370 M1=G(1,1)-V 
380 M2=G(I,2)-W 

NEW: 

104 L1=1 

105 L2=0.5 
302 GIN V,W 
304 RDRAW 0,0 
306 PRINT " GGG *: 

540 G( 1,3) =V+L 1 *B 1 
550 G(1,4)=W+L1*B2 
560 DRAW G(I,3),G(I,4) 

570 RDRAW L2*B2, -L2*B 1 
580 DRAW V,W 

590 DRAW V+L1*B1-L2*B2,W+L1*B2+L2*B1 
600 DRAW G(I,3),G(I,4) 

610 GO TO 710 
720 END 


The new version does not force the near 
horizontal or near vertical lines to hori¬ 
zontal or vertical as in the old version. 

By changing the values LI and/or L2, it 
is possible to change the dimension of 
the top of the arrow. (LI and L2 have 
the same values as the old version.) To 
draw other tops of the arrows you can 
use program alterations: 



I use arrows to check digitized data. 
When digitizing lines, for example roads, 
the instructions are to stop on each knot 
of the lines. To check digitizing, the ar¬ 
rows are drawn on the beginning and 
ending of each line segment. 



Determining if a String is Defined 


by Herman D’Hondt 
Tektronix, Inc. 

Sydney, Australia 

Some time ago when writing a program 
that consisted of several overlays, I had 
to find a way to let the program deter¬ 
mine whether or not a certain string vari¬ 
able had been defined (in a previous 
overlay). 

Several methods came to mind immedi¬ 
ately, including: 

led IF LEN<A$)>8 THEN 1000 

190 A*«A*t'*1234" 

lie IF UAL<A$>«1234 THEN 1000 


Unfortunately, these will only work if A$ 
has been defined, or at least set to a 
null-string. If A$ is undefined, those and 
similar checks will generate a fatal error, 
and the program will abort. 

After some thought, I came up with the 
following little routine: 


100 A*«REP<"M,e> 

110 IF LEN(A*>>0 THEN 1000 
120 INPUT A$ 


The REP function in line 100 does two 
things: 

(a) If A$ has been defined previously, 
it is left unchanged by inserting a 
null-string at character position 1, 
and deleting 0 characters. 

(b) If A$ is undefined, it is defined as 
a null-string. 

Either way, line 110 checks to see if A$ 
actually contains data. If not, line 120 
asks the user for input. 

Editor’s Note: This routine was also con¬ 
tained in “Program Initialization,” Vol 4 
No. 6. 
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Area Calculation — Update No. 1 


by D. F. Davey 
Department of 
Physiology 
McGill University 
Montreal, PQ, 
Canada 


Furthermore, the restriction that “the 
area must be digitized in a clockwise di¬ 
rection” only applies if one insists that 
the printed area be positive. The restric¬ 
tion can be dropped and positive results 
ensured by changing A3 in line 3160 to 
ABS(A3). 


The area calculation routine provided by 
Bernie Gunn (TEKniques Vol. 4 No. 8) 
can be simplified: 


REMOVE ABS from line 3100 
DELETE lines 3110, 3130, 3140 


Area Calculation — Update No. 2 


by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

While testing “Area Calculation” (TEK¬ 
niques Vol. 4 No. 8) on a circle with a 
calculated area of 7854 units, we found 
that the program seems to have a logic 
error in statement 3100 and will occa¬ 
sionally generate a syntax error if 
statement 3120 is branched to for the fi¬ 
nal point. Below is the correct version. 


a counterclockwise direction. The new 
version operates significantly faster. 

Editors Note: Statement 3130 in the origi¬ 
nal version should have read: 

GOTO 3150 


3000 REM: Begin area calculation 
3010 A1«I 
3020 RETURN 

3039 REM: End area calculation 

3040 A2=I-1 

3050 REM: A3=Tota1 area 
3060 A3=0 

3070 X(A2+1>=X<A1> 

3080 Y<A2+1>=Y(A1) 

3090 FOR J*A1 TO A2 

3100 A3=A3+<X<JM>-X(J>>*<Y<J+1>+Y<J>> 
3130 NEXT J 
3140 A3=0.5*A3 
3150 A3*ABS<A3) 

3160 PRINT "1AREA *";A3 
3170 RETURN 



We also eliminated some unnecessary 
statements and moved the ABS function 
to line 3150. If the area (A3) in line 3140 
is positive, the line segment is clockwise 
about the area; a negative area indicates 


CALL “MOUNT” and 4907 Timing 


by W. J. Orvis 

Lawrence Livermore National 

Laboratory 

Livermore, CA 

When using a 4907 disk drive with a 4054 
computer, a slight timing error can some¬ 
times cause the 4054 to lock up busy. As 
part of our programming, we must occa¬ 
sional change a disk in the disk drive. 
This is usually accomplished by a se¬ 
quence of statements like the following: 


590 PRINT "INSERT THE PROGRAM DISK AND PRESS RETURN:* 5 
510 INPUT 2$ 

520 CALL "MOUNT",0,St 


This will usually work just fine, except 
in the case where the disk has previously 
been inserted and mounted. Normally, 
the 4907 will mount the disk and return a 
status message to the 4054 which is 
stored in S$. If the disk was already in 
place and mounted, then the 4907 only 
sends back the status message. Occa¬ 
sionally, in a large program, the status 
message appears to be returned too 
soon, and conflicts with the memory op¬ 
erations taking place in the previous 
state. This results in the 4054 locking up 
busy waiting for the status message that it 
missed. 


tion in line 510 to complete before exe¬ 
cuting line 520. Do this by inserting a 
blank remark statement at line 515. 


515 REM 
RUN1000 


500 PRINT "INSERT THE PROGRAM DISK AND PRESS RETURN:*} 
510 INPUT Zt 
515 REM 

520 CALL "MOUNT",0,St 


Correcting this problem is quite simple, 
as all we must do is to waste a few ma¬ 
chine cycles to allow the memory opera- 
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PRINT USING to Disk 


Once a carriage return has been issued 
/ by the File Manager during a PRINT op¬ 
eration when using a format string, it 
must be redirected to the format string 
or it reverts to the default format.* Two 
readers have suggested methods for 
printing formatted arrays to the disk. 

by J. W. Ball 

U.S. Dept, of the Interior 
Geological Survey 
Menlo Park, CA 

The 4907 checks to see if 72+1 charac¬ 
ters are printed; if so, it issues a carriage 
return and reverts to the default format. 


100 INIT 

118 DIN A<8),B<6>,A#<200> 

120 FOR 1-1 TO 8 

130 A(I>-I 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B(I-8)«I 

1?0 NEXT I 

188 KILL "TEST2" 

190 CREATE "TEST2","A"|1,0 
200 OPEN "TEST2"!1,"F",A* 

210 PRINT #l: USING "14(6D.2D)":A,B 
220 CALL "REMIND",1 
230 INPUT «l:A*,B*,C* 

240 PRINT 051:At 
250 PRINT §51 *.B$ 

260 PRINT §5l:Ct 
270 A*-A«Bf 
280 At-AttCt 

290 PRINT 051:"LENGTH (SHOULD BE 126) 
300 END 


"1LEN(At) 


By dividing the data items between two 
PRINT statements, the format is re¬ 
tained. 


*See TEKniques Vol. 4 No. 3, “Printing 
Arrays to Tape or Disk.” 


from a single IMAGE statement. That 
means the slash specification in an IM¬ 
AGE will always cause problems. It is 
particularly obvious with arrays. The fol¬ 
lowing examples illustrate the problem 
and how to overcome it. 


In the following example, the same oper¬ 
ation is performed using a random-access 
file: 


by Tom Price 
Lorillard 
Greensboro, NC 

The 4907 supports PRINT USING under 
most circumstances, but does not allow 
multiple lines to be correctly printed 


100 INIT 

110 DIN A(8),B(6),A$(200) 

120 FOR 1-1 TO 8 

130 A<I>-I 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B(I-8)»I 

170 NEXT I 

180 KILL "TEST2" 

190 CREATE "TEST2","A"|2,73 
200 OPEN "TEST2"Jl,"F",A* 

210 PRINT #1,1: USING "8<6D.2D)":A 
215 PRINT *1,2: USING "6(6D.2D)":B 
220 CALL "REMIND",1 
230 INPUT *1,1!A* 

235 INPUT *1,2:B* 

236 PRINT 051:A* 

237 PRINT 051:B$ 

240 A$-AUB$ 

270 PRINT 051:"LENGTH (SHOULD BE 126) 
280 END 


"|LEN(A*> 


100 DIN A(5,2) 

110 A-0 

120 OPEN "TEST"!1,"F"»A* 
130 PRINT *1*. USING 140:A 
140 IHAGE5(3D3D/> 

150 CLOSE 

160 OPEN "TEST"!1,"R",A$ 
170 INPUT Vl'.A* 

180 PRINT A* 

190 IF TYP(l>-2 THEN 170 
200 END 

RUN 
0 0 

0 0 

0 0 

8 0 


108 

DIN A<5,2) 

110 

A-0 

120 

OPEN "TEST"J1,"F",A$ 

121 

FOR 1-1 TO 5 

130 

PRINT *l: USING 140:A(I,1),A(I,2) 

131 

NEXT I 

140 

IMAGE 3D3D 

150 

CLOSE 

160 

OPEN "TEST"J1,"R*,A* 

170 

INPUT «i:a$ 

180 

PRINT A* 

190 

IF TYPO >»2 THEN 170 

200 

END 

RUN 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


100 INIT 

110 DIH A(8),B(6),A*(200) 

120 FOR 1-1 TO 8 

130 A(I)-I 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B(I-8)«I 

170 NEXT I 

180 KILL "TEST2" 

190 CREATE "TEST2","A"J1,0 
200 OPEN "TEST2"!1,"F",A* 

218 PRINT *l: USING ”8(6D.2D)":A 
220 PRINT *1: USING "6(6D.2D>":B 
230 CALL "REMIND",1 
240 INPUT *l:A$,B$ 

250 PRINT 051:A* 

260 PRINT 051:B* 

270 At-A*&B* 

280 PRINT 051:"LENGTH (SHOULD BE 126) 
290 END 


"|LEN(A*> 


Renaming Tape File Headers — Update 


by Anne Thanhouser 
Tektronix, Inc. 

Wilsonville, OR. 

The programming tip carried in TEK¬ 
niques Vol. 5 No. 1 for renaming tape 
headers had one omission in the restric¬ 
tions. Restricton #3 should read: 

Character 17 is normally P (program), 
D (data), T (text) or L (last). 
However, the two requirements are 
that the character has to be P if the 
file is to be “autoloaded” or if it’s a 
binary program. In all other cases, it 
can be any printing character. 

The revised program is included below. 
Changes were made in statements 170, 
425, and 540 to 590. 


120 PRINT *1— 

130 PRINT ’Thii program insert* labels in the header* of tape files.*! 
140 PRINT ' You can in*ert_up to 22 characters in each header. These ■; 
150 PRI “can be any printing character,_subject to the following rules:’ 
160 PRINT *J 1. Positions 15 to 32 cannot have numbers. ’ 

170 PRI * 2. AUTOLOAD t BINARY proas must have a 'P' in position 17." 

180 PRINT * 3. An 'S' in position 27 assumes the program is Secret.’; 

190 PRINT ’ The 4051_ will not be able to load it unless it is." 

200 PRINT *JIf you violate any of these rules> the program will take* 

210 PRINT ’appropriate action.J’ 

220 PRINT ’To end, enter '0' for the file number.J" 

230 DIH Z*<l>,N#C23>,P#<l),0#<l>,R#a>,C*<2>,S*<2> 

240 Cf*CHR(13> 

245 S*«CHR<19> 

250 Ct>C*lSt 

268 REN ttt REQUEST FILE • t NAHE Ut 
270 PRINT ’ENTER FILE • "I 
280 INPUT N 
290 IF N«0 THEN 700 
295 PRIN" - 
300 PR" 

310 PR] 

320 PR] 

NT USING ’24<”b”)S": 


If you already changed some binary pro¬ 
gram headers and omitted the “P” in 
byte 17, simply use this program again to 
re-insert it. 


370 REN *** READ TAPE HEADER *** 

380 PRINT 033,0:0,0,1 
390 FIND N 
400 INPUT 033:At 
410 Qt*SEG(Af,17,1> 

420 R**SEG(A*»27,1> 

425 B*»SEG(A*,9,1> 

430 A*»REP<N*,10,LEN(N*> > 

440 REN tt* CHECK FOR SECRET PROGRAHS ttt 
450 M*»SEG(A*,27,1> 

460 IF Ht«’S" AND RtO’S" THEN 680 
470 IF Rt»’S* AND MtO’S" THEN 720 

480 REH ttt CHECK FOR NUMERICS ttt 
490 H**SEG<A*,15,19> 

500 M*»M*&’1.234E-234“ 

510 IF UAL<Mt)«l.234E-234 THEN 550 

520 PRINT *JJJJCAN'T HAUE NUMBERS IN POSITIONS 15 TO 33. TRY AGAIN.’ 

530 GO TO 300 

540 REM ttt CHECK FOR AUTOLOAD AND BINARY PROGRAMS ttt 
550 P*«SEG(A*»17,1) 

555 IF QtO’P" OR Pt-’P" THEN 610 
560 IF BtO’B" THEN 575 

565 PRINT *JJJJBINARY PROG NEEDS 'P' IN P0S 1?» 

570 GO TO 295 

575 IF NOl THEN 610 

580 PRINT ’JJJJAUT0L0AD PROG NEEDS 'P' IN P0S 17, WANT TO CHANGE IT? ’| 

585 INPUT Zt 

590 IF Zt-’Y" THEN 300 

600 REM ttt REPLACE HEADER ttt 
610 FIND N 
620 A*»A«C* 

630 PRINT 033:At 
640 CLOSE 

650 PRINT 033,0:0,0,0 
655 PRINT ’L* 

660 GO TO 220 

670 REH ttt ERROR MESSAGES AND END ttt 

680 PRINT ’JJJJYOU'RE ABOUT TO HAKE THAT FILE SECRET. PLEASE TRY AGAIN’ 
690 GO TO 300 
700 FIND 0 
710 END 

720 PRINT ’FILE IS SECRET, CHAR #27 SHOULD BE 'S'. PLEASE TRY AGAIN.’ 
730 GO TO 300 
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Clock on 4050 Screen 


by J. Bruursema 

Dutch Land Registry Office 
Apeldoorn 
and Ir. A. C. Visser 

Institute for Land and 
Water Management 
Research 
The Netherlands 

Between demonstrations, performances, 
etc., a clock on the 4050 screen will in¬ 
form passersby of the time. Change 
statement 620 for accurate timing. 


4 GO TO 108 
8 PAGE 
98 REN 
60 REN 
78 REN 
100 INIT 
110 SET KEY 
120 SET DEGREES 
138 PRINT *L 
148 PRINT ’ 

150 INPUT D9 
168 IF D9<0 OR D9>24 THEN 748 
170 H«INT(D9.0.01> 

180 H«INT<108*<09-H>*0.01> 

190 IF H>59 THEN 740 

280 PRINT "J HHAT IS THE RIGHT TINE?* 

218 PRINT “• Push RETURN-butto* 1 *«c b«for« th« nantionad tint <* 
220 PRINT * (for exanpl* 14.15 ) “J 

230 INPUT T9 

240 IF T9<0 OR T9>24 THEN 740 
258 H-INT<T9.0.01> 

268 N«INT<108*<T9-H>*0.01> 

270 IF N>59 THEN 740 

280 T9-T9-0.01 

290 S-0 

308 T9-T9+0.81 

310 IF D9-T9<0.005 THEN 720 

320 H-INT<T9+0.01> 

338 IF H<24 THEN 368 
340 T9-T9-24 
350 GO TO 310 

360 H«INT(100*<T9-H>+0.01> 

370 IF N<60 THEN 408 
300 T9-T9+0.39 


GO TO 300 

PRINT “CHERT DEMONSTRATION MILL BE “ 

PRINT USING 420:“ GIVEN AT “JD9|“ HOURS* 

IMAGE I2A.2D.2D.6A 
FOR I-l TO 12 
HOVE 65,50 
ROTATE -38*1 
RN0VE 41,0 
RDRAM 9,0 
NEXT I 
MOVE 65,58 
ROTATE 98-308H-N/2 
RDRAM 30,0 
HOVE 65,50 
ROTATE 90-6*M 
RDRAM 40,0 
HOVE 65,50 
ROTATE 90-6*S 
RHOVE 41,8 
I RDRAM 9,0 

i REN Change the value in the statenant below 
REN when the clock goes too fa*t or too glow 
FOR I-l TO 215+1?25*<RND<0>>0.2> 

NEXT I 
S-S+l 

0 IF StlNTCSz-Sl-S THEN 550 
0 HOVE 65,50 
ROTATE 90-6*S 
RHOVE 45,0 
0 RDRAM 5,8 
10 IF S<59 THEN 620 
GO TO 290 

PRINT “LGCGGNOM THE DEMONSTRATION 18 BEGINNING!!“ 
t0 GO TO 758 

8 PRINT 'JGGTHE TINE, YOU ENTERED, CANNOT BE CORRECT. START AGAIN." 


READing 4907 Data Files and Program DATA Statements 


by Tom Price 
Loriliard 
Greensboro, NC 

Code which reads DATA statements 
should not immediately follow code that 
OPENS a disk data file for read-only ac¬ 
cess. A READ command must be direct¬ 
ed to the open file before information 
can be properly read from DATA state¬ 
ments, or a PRINT command must be 
executed. 


108 IHIT 

110 OPEN "testl"?1,"R",Al 

128 FOR 1*1 TO 3 

130 READ Cl 

140 PRINT CI 

158 NEXT I 

160 DATA -First” 

170 DATA "second“ 

180 DATA -third” 

198 END 
run 

second 

third 


Notice the first data item is not read. 


100 INIT 

110 OPEN M testl";l,"R",AI 
120 PRINT "" 

130 FOR 1*1 TO 3 
140 READ Cl 
150 PRINT Cl 
160 NEXT I 
170 DATA "first” 

180 DATA -second- 
198 DATA -third- 
208 END 
run 

first 

second 

third 


READ command to the open file sets internal 
pointers. 


180 INIT 

110 OPEN -testl"?1*"R",Al 

120 READ #l:HI 

138 FOR 1*1 TO 3 

140 READ Cl 

150 PRINT Cl 

160 NEXT I 

170 DATA "first- 

180 DATA -second- 

190 DATA "third- 

200 END 

run 

first 

second 

third 


A print operation will also set the pointers. 


108 OPEN -TEST-ll, 
110 FOR 1*1 TO 3 
128 READ Al 
130 PRINT Al 
140 NEXT I 
150 DATA -First- 
160 DATA -Second- 
170 DATA "Third" 


f ", Al 


run 

First 

Second 

Third 


Opening the file for Full access will avoid 


incorrect data read. 


Sheilsort — Update 


by Brian Diehm 
Tektronix, Inc. 

Wilsonville, OR 

In TEKniques Vol. 4 No. 8, Dr. Bernard 
Gunn submits a sheilsort routine that is 
faster than traditional bubble sorts. His 
algorithm is clever and does work as list¬ 
ed, but the initialization of the sort may 
be quickened and shortened by perform¬ 
ing the following change: 

DELETE lines 250 through 270 
INSERT line 260: 


269 D*2tINT(L0G<N>/L0G(2>+l> 


Particularly for sorts with large numbers 
of elements, this initialization will be 
faster than incrementally “trying” pow¬ 
ers of two until finding the first one larg¬ 
er than N. 

The complete listing of Dr. Gunn’s algor¬ 
ithm, corrected as above, is listed below: 


100 INIT 

110 PRINT “LH0H MANY RANDOM NUMBERS DO YOU WANT TO SEE SORTED? *S 
120 INPUT N 
130 DIM A(N) 

140 A—1 
150 A-RND(A) 

160 A-10004A 
170 A-INT<A> 

180 PRINT A 

190 PRINT ”** SHELLS0RT STARTED **" 

200 D*2tINT(L0G<N)/'L0G<2>+l) 

210 D-INT<<D-l>/2> 

220 IF D-0 THEN 350 
230 I1»INT<N-D> 

240 FOR I-l TO II 
250 J-I 
260 L-J+D 

270 IF A<L)->A<J) THEN 330 
280 Tl-A(J) 

290 A<J)-A(L) 

300 A(L)-T1 
310 J-J-D 

320 IF J>0 THEN 260 
330 NEXT I 
340 GO TO 210 

350 PRINT "** SHELLS0RT FINISHED tt” 

360 PRINT A 
370 END 
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Modified Auto-Paging 


Update 


by Anthony V. Hewitt 
U.S. Naval Observatory 
Flagstaff, AZ 

The subroutine described in TEKniques 
Vol 4. No. 6 is useful but inflexible. Be¬ 
cause not every output page causes a 
page-full, the operator cannot change the 
behavior of the program on a page-full 


condition by using such commands as: 
PRINT @32,26*. 3. The following rou¬ 
tine has the function: 

IF (the page is almost full) FILL IT 
RETURN 

which overcomes this limitation. 


999 REh PAGING SUBROUTINE 

1B80 GIN X,Y 

1010 IF Y>20 THEN 1040 

1020 PRINT 

1030 GO TO 1000 

1040 RETURN 


X,SUMX 


by Pete Nelson 
Tektronix, Inc. 

Beaverton, OR 

The following line of code was placed in 
a 4051 with X dimensioned as a matrix: 

160 PRINT 09: USING 170: X.SUMX 

When LISTed or SAVEd it appears as: 

160 PRINT eo: USING 170:XSUM<X> 


LIS 

100 init 

110 Q-32 
120 DIH X<20> 

130 FOR 1-1 TO 20 
140 X<I>«It2 
150 NEXT I 

160 PRINT »Q1 USING 170:XSUH(X> 

170 IMAGE 21<5D) 

160 END 

RUN 

1 4 9 16 25 36 4< 

225 256 289 324 361 400 2870 

FIND 4 

SAME 

FIND4 


81 180 121 144 169 196 


or, since PRINT USING is being done, 
use: 


160 PRINT *Q: USING 170:XJ$UM<X> 


The work-around is to precompute 
SUMX prior to printing: 


However, the line cannot be recalled and 
reentered as XSUM(X) without a Syntax 
Error occurring. The program with 
XSUM(X) can be stored on tape, but 
halts at line 160 when “OLD”ed into 
memory. 


159 Y-SUMX 

160 PRINT 0Q: USING 170:X,Y 


Salvaging Old Tapes 

by David Yager 

Physics Department 

Sam Houston State University 

Huntsville, TX 

Some of our older tapes are unwound by 
our new 4052. The 4052 (and 
occasionally the 4051) refuse to find 
some files on these tapes. We suspect 
the faster winding speed is the reason. 
Rather than spend money on new tapes, 
we’ve found ways to rehabilitate old 
ones. Two remedies that work for us 
are: 

1. Check the beginning and end of the 
tape to see if the optical load point 
sensor holes are clear. Sometimes the 
punch doesn’t push the plug out of 
the hole. This can go unnoticed by 
the 4051, but will be picked up by the 
4052. 


2. Our tapes have the most used pro¬ 
grams bunched at the beginning of the 
tape. Often the last half of the tape is 
unused. We’ve been able to rewind 
the tape so the trailing end becomes 
the leading end. This part of the tape 
is usually brand new. The travel limit 
sensor holes must be repunched in the 
old sequence on both ends of the tape 
so that the rewind, autoload and 
“MTPACK” commands do not uns¬ 
pool the tape. These holes can be cut 
with an X-Acto knife with care. 


Editor’s Note: Tapes do wear out and 
backups should be made. While procedure 
2 may work, Tektronix does not condone 
it and does not guarantee reliability. 
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UDU Commands and GDU Commands 



by Dan Taylor 
Tektronix, Inc. 

Wilson ville, OR 

The GIN statement (and POINTER com¬ 
mand) records the current position of the 
cursor on the graphic display in user data 
units determined by the current WIN¬ 
DOW statement. MOVE and DRAW 
statements also treat their arguments as 
user data units. 

Whereas, the INPUT statement with sec¬ 
ondary address of 24 treats the incoming 
data as graphic display units and the 
PRINT statement with secondary ad¬ 
dress of 20 or 21 treats its arguments as 
graphic display units. 

Therefore, don’t use GIN (or POINTER) 
with PRINT @D,20 or PRINT @D,21; 


or INPUT @D,24 with MOVE and 
DRAW (D = device #). The results may 
be different than expected, depending on 
your WINDOW. 

For example, try the following routine to 
see the placings on the screen, depend¬ 
ing on whether X and Y are treated as 
user data units or graphic display units. 


180 INIT 

110 MINDOM *10,10,-20120 
120 PRINT "L" 

130 HOUE 3,15 
140 GIN X*Y 
158 HOUE X,Y 
160 PRINT -UDU" 

170 PRINT 832,2l:X,Y 
180 PRINT "GDU- 
190 END 


Efficient Subroutine Use 

by Ron Robinder 
Tektronix, Inc. 

Beaverton, OR 

The following guidelines will avoid ineffi¬ 
cient subroutine use and minimize code 
in a program. 

1. Avoid using a subroutine only once. 
Incorporating a subroutine directly at 
the point of call will eliminate two 
lines of code: the GOSUB statement 
and the RETURN statement. 

2. Avoid one line subroutines unless the 
line is long and complicated. These 


can be repeated in place of the GO- 
SUB statement, eliminating a total of 
two lines of code from the program 
for each one line subroutine.* 

3. Two line subroutines should be called 
at least three times (unless they are 
long and complicated). Any other 
larger subroutine is acceptable for two 
or more calls.* 


*One exception might be if you were go¬ 
ing to be changing that one-or-two-line 
subroutine and wanted it in one location. 


These guidelines insure a minimum of 
lines of code. Other guidelines may ap¬ 
ply with regard to run time optimization, 
but I haven’t been concerned with this 
aspect. 


Packing Tapes 

by Deggary N. Priest 

Commercial Testing Co., Inc. 
Dalton, GA 

Regarding your recent article on mainte¬ 
nance, I would like to comment on the 
“Packing Tapes’’ section. Using the 4051 
system, you need only FIND n (n 
LAST), MARK 1,400000 one time. 
Thereafter, TLIST will very nicely 
“Pack’’ the tape. 
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Savings Programs to Disk 


by Dave Kirkpatrick 

U.S. Army Corps of Engineers 
St. Louis, MO 

When editing disk files from the 4907 us¬ 
ing the Editor ROM Pack with the 4050, 
be sure to transfer the edited file to a 
new and unique disk file. Should you en¬ 
counter no errors, power failures, or oth¬ 
er problems, you would then be free to 
kill the original disk file that you were 


editing and rename the newly transferred 
disk file with the old disk file name. Do¬ 
ing this rather than first killing the disk 
file and re-creating it to hold the edited 
data would avoid losing your only 
remaining copy in case of error. 


Saving Programs to Tape 

by Dr. Ir. F. J. Franck 
Jan van Scorelpark, 12 
The Netherlands 

SAVing a memory-resident program after 
development or modification often repre¬ 
sents a hazardous manipulation. Several 
mistakes can be made: 

FINDing an unappropriate file num¬ 
ber and SAVing, thereby overwriting 
another file; 

SAVing the program in NOHEADER, 
NOCHECKSUM or 128 byte format; 

SAVing the program with an extra 
carriage return (after a 
PRINT @37,26:1); 

OLDing the program instead of SAV¬ 
ing it; 

Power failure during the SAVE;* 

Bad spot on tape develops.* 

The following routine may help in re¬ 
membering the right file number and 


preventing other mistakes. Dedicate one 
User-Definable Key to this purpose or 
start your SAVE routine at an easily re¬ 
cognizable line number, e.g., 10000 and 
save your program with RUN 10000. 


31 REN 

32 REN 

33 REN 

34 REN 

35 REN 

36 REN 

37 REN 

38 REN 

39 REN 

40 REN 

41 REN 

42 REN 

43 REN 

10000 REN -—SAVE 

10010 REN ttt 'N' IS THE FILE NUNBER ttt 
10020 N-20 
10030 PAGE 

10040 PRINT 037,26:0 
10050 PRINT 033,0:0,0,0 
10060 FIND N 
10070 CALL “HEADER" 

10080 PRINT ’JSav« CNANE3 on fll« "»NI“, O.K.CV/N3GGGG"J 
10090 INPUT A* 


tttttttttttttttttttttttttttttttttttttttt 
t t 
t Put your progran taktn fro* tilt N t 
t soncuhcrt bttuccn 100 and 9999 * 
t or behind 12000. * 


tttttttttttuttttttttttttttttttttttttttt 


10100 A$*SEG(A*,lil> 
10110 IF A*<>“Y“ THEN 
10120 FIND N 
10130 SAUE 

10140 REN ttt or CALL 
10150 CLOSE 
10160 PRINT 
10170 END 
10180 PRINT 


10180 


"Don«GGG“ 


10190 PRINT 
10200 END 
10210 REN — 


PROGRAN HAS NOT BEEN SAUED<' 

—GGGGGGGG’ 


Editor’s Note: If you are using the 4051, cer¬ 
tain lines of code will have be replaced with 
the following to point out the file header infor¬ 
mation: 


10058 PRINT 933,0:0,0,1 

10060 FIND N 

10061 INPUT 033:A* 

10062 PRINT 933,0:0,0,0 

10063 B*-SEG<A$,33,8) 

10064 B«236*UAL<B$) 

10065 Bt-STR(B) 

10066 A$«SEG<A$,1,32> 
1006? A*«A*IB* 

10070 PRINT At 


*To overcome these two events, you must 
have a backup of the program either on 
the current tape, or a separate tape. 
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Library Consolidation 


You’ve overwhelmed us! What began 
over five years ago as a rather informal 
method of sharing 4050-Series programs 
has outgrown its usefulness. When it all 
began the Libary had a few programs, a 
few members and we expected (and got) 
only a couple of orders per week. 

Now, with over 200 programs available 
and Library membership growing rapid¬ 
ly, our mailbox is full of orders each 
morning. To continue to provide efficient 
service to you, we’ve streamlined pro¬ 
gram ordering. 

We’ve combined like-subject programs 
together on tapes or disks, packaged the 
tape or disk together with the supporting 
documentation and given the package a 
Tek part-number. Now you can order 


programs just like ordering blank tapes 
or plotter pens, through your local Tek¬ 
tronix representative. 

Here is a list of the packages now avail¬ 
able. Packages include the media (“T” 
= tape, “D” = Disk) and documentation 
(without listings). Documentation is 
available separately. 

To find out what is in each package you 
will need the latest issue of the Applica¬ 
tions Library catalog. Most of you 
should have received one enclosed with 
this issue of TEKniques. (The catalog 
designed to fit in a three-ring binder (Tek 
P/N 016-0367-00) and we will add pages 
later to update it.) If you don’t have a 
catalog, contact your local Tektronix re¬ 
presentative. 


In the past, we have exchanged three 
programs of your choice for each new 
program accepted by the Library. Now 
we will offer a full package for each one, 
a considerable increase in most cases. 

New programs not included in this initial 
offering will be combined until we get a 
tape or disk full. New packages will be 
announced via TEKniques and support¬ 
ing catalog pages will be distributed to 
all Library members. 


Package Title Package Part # 

Business Aids T1 . 062-5987-01 

Business Aids T2 . 062-5988-01 

CAD T1 . 062-5976-01 

CAD D1 . 062-5977-01 f 

Character Generator T1 . 062-5951-01 

Education/Research T1 . 062-5982-01 

Education/Research T2 . 062-5983-01 

Electrical Engineering T1 . 062-5978-01 

Graphing T1 . 062-5964-01 

Graphing T2 . 062-5965-01 

Graphing T3 . 062-5966-01 

Graphing D1 . 062-5967-01 

Graphing D2 . 062-5968-01 

Interfacing T1 . 062-5984-01 

Mapping T1 . 062-5980-01 

Mechanical Engineering. 062-5979-01 

Programming Aids T1 . 062-5971-01 

Programming Aids T2 . 062-5972-01 

Project Aids T1 . 062-5985-01 

Project Aids D1 . 062-5986-01 

Recreational Plots T1 . 062-5989-01 

Slidemaker T1 . 062-5962-01 

Slidemaker D1 . 062-5963-01 

Text Processing T1 . 062-5969-01 

Text Processing D1 . 062-5970-01 

Utilities T1 . 062-5974-01 

Utilities D1 . 062-5975-01 
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4050 Series Applications Library Programs 


Ordering 

The current system for ordering individual 4050 Series 
APPLICATIONS Library programs will remain in effect until 
December 31, 1981. However, effective immediately you may 
also order programs by the new package system. After De¬ 
cember 31, 1981, only the packages may be ordered. 

Individual Program Orders (until December 31, 1981) 

Documentation and program listings of each program are avail¬ 
able for a nominal charge. Programs will be put on tape or disk 
for a small recording fee per program plus the charge for the 
tape cartridge or flexible disk. One tape /disk will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disk and vice versa unless 
so noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, or any kind arising from the use of this program 
material or any part thereof.) 

Domestic U.S. Prices: 

Documentation and Listing only $25 per program 

Documentation, Listing and Recording Fee 30 per program 
Tape Cartridge 36 per tape 

Flexible Disk 15. per disk 

Forms 


Packaged Program Orders 
(effective immediately) 

Call your local Tektronix Sales Office and give your representa¬ 
tive the part number of the package(s)you wish. A price list is 
included with your 4050 Series Applications Library catalog. 

Contributions 

The current exchange system for program contributions will also 
remain in effect until December 31, 1981. However, you may 
take advantage of the package exchange instead. After December 
31, 1981, only the package exchange will be available. 

Three-for-One Exchange 

Contribute one program to the Library and receive three in ex¬ 
change. Send in the membership card from your4050 Series Graphic 
System Reference Manual to get the details. Or call us (503) 685- 
3618. 

Outside U.S. 

Program contributions or orders, outside the U.S. must be pro¬ 
cessed through the local Tektronix sales office or sent to one of 
the Libraries serving your area. See Library Addresses section. 

Package Exchange 

Contribute one program to the Library and recive one package 
in exchange. 


Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 


Since the following program abstracts, 
along with their graphic output (where 
applicable), are contained in the new 
4050 Series Applications Library Cata¬ 
log, only their description is included in 
TEKniques. See the catalog for their 
graphic capabilities. 

ABSTRACT #: 51/00-6124/0 

Title: 4050/492P Utility 

Author: David B. Green 
Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 32K 
Peripherals: 492P Spectrum Analyzer 
Optional-4662 Plotter 
Statements: 1286 
Files: 8 ASCII Program 
9 ASCII Data 
7 Binary Data 
Requires dedicated tape 

This is a demonstration software pack¬ 
age, however, it contains many useful al¬ 
gorithms that can be adapted for person¬ 
al application programs. The following 
are the sub-programs in this package. 

Indexing/Menu 

Contains the initial control structure for 
the entire package. Used to access de¬ 


sired sub-programs and also contains a 
complete list of 492P commands. This 
sub-program also allows direct control of 
the analyzer over the GPIB bus. 

492P Waveform Transmission 

Establishes a single keystroke approach 
which allows you to either transmit or 
receive waveform data. Instrument Front 
Panel Settings may also be transmitted 
or received along with each correspond¬ 
ing waveform. Provides for simple data 
storage to magnetic tape which will allow 
you to store measurement conditions and 
data. By the stroke of a few User-Defin¬ 
able Keys, the 492P can be made to re¬ 
configure to previously made measure¬ 
ment parameters. 

Spectrum Analysis 

Provides rapid spectrum analysis from 
sweeps made on the 492P. Two types of 
analysis are provided: 

1) This analysis lists and graphs the fre¬ 
quencies to either side of the signal at 
center screen. Sideband measure¬ 
ments are made easy with this portion 
of the program. 

2) Direct frequency measurements are 
the function of this section. All sig¬ 


nals appearing on screen are cata¬ 
loged and listed on the controller. 

492P Command Syntax Tutorial 

This is a complete tutorial provided for 
the novice. The tutorial provides for the 
user comprehensive instruction in the 
use of the GPIB command syntax used 
in the 492P. As each item is presented, 
the user is allowed to “experiment” with 
each command with help as needed pro¬ 
vided by the controller. Periodic review 
of this section keeps one’s programming 
skills at a maximum. 

Total Harmonic Distortion 

This sub-program was provided especial¬ 
ly for sales personnel. It operates using 
only the internal calibrator signal provid- 
ed in the 492P. The program 
automatically searches for and measures 
all requested harmonics of a given fre¬ 
quency and computes the total Hermonic 
distortion. Measurement results are pro¬ 
vided in a neat graphics format. 

Utility Programs 

Duplicate tapes. Name tape file headers 
to use for data storage. 
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ABSTRACT #: 51/07-8029/1 

Title: CDOS 4907 Operating System 
Authors: Lunne Cueto 
Carl Dawson 
Tektonix, Inc. 

Rockville, MD 
Orlando, FL 

Revised by: Frits Handgraaf 
Tektronix, Inc. 
Amstelveen, The Nether¬ 
lands 

Memory Requirement: 16K 
Peripherals: 4907 File Manager 

Optional—4641 Printer 
Files: 26 Program 
28 Data 

Statements: 1480 


ABSTRACT # 51/00-8043/0 

Title: Micro-Grasp 

Author: Roger W. Bowen 

U.S. Geological Survey 
Reston, VA 

Memory Requirement: 32K 
Statements: 1135 
Files: 3 ASCII Program 

4 ASCII Date (examples) 

Requires dedicated tape 

Micro-Grasp is a scaled down version of 
the USGS Geologic Retrieval and Sy¬ 
nopsis Program (GRASP). The GRASP 
system is extensively used on a variety 
of small to large scale hosts to access 
many diverse types of data. Micro-Grasp 
retains the major features of GRASP and 
should prove useful on private (or non- 
shared) databases of a small to medium 
size (less tha 300K bytes). Micro-Grasp 
is a command-oriented system which op¬ 
erates on fixed-field character and/or nu¬ 
meric data in a tabular form. 

Each database consists of a data defini¬ 
tion file and a master file. The data 
definition file describes the master file. 
The data definition files contains the 
number of fields in a master-file record, 
the number of characters in a master-file 
record and the number of the master file. 


ABSTRACT #: 51/07-8049/0 

Title: Disk Directory 
Author: Nick Ogbourne 

Comalco Aluminum (Bell 
Bay) Ltd. 

George Town, Tasmania 
Memory Requirement: 8K 
Peripherals: 4907 File Manager 
Files: 1 Program 
Statements: 193 


CDOS has been modified for one start¬ 
up program instead of the two contained 
in the original version, and some changes 
made. 

CDOS has been modified to take advan¬ 
tage of the 4052/4054 and some minor 
streamlining has been incorporated: 

One start-up program instead of two; 

A new APPEND procedure in the 
main program to avoid memory full; 

The system disk may be mounted in 
any drive; 

DISCTOTAPE routine changed for 
optimum file marking; 


New program lines in the FORMAT 
to prevent the system disk from being 
formatted; 

/" 

A few other minimal charges for more ^ 
efficient execution. 


This is followed by ’n’ field-description 
records. Each field-description record 
has a field name, data type, beginning 
position, and optional ending position. 

The master file contains the actual AS¬ 
CII data. Data may be numeric or char¬ 
acter and must be in a fixed field format. 

Twelve commands operate on the data in 
the data-definition files and the master 
files: 

Help: displays a list and shor description 
of each of the commands. 

File: establishes or changes a data defini¬ 
tion file. 

Name: outputs the data definition file to 
screen or a selected tape file. 

Inpu(t): creates a master file in prompted 
mode. 

Cond(ition): enters or adds a set of con¬ 
ditions using valid field names and their 
relation (equal, less than, greater than, 
less than or equal to, greater than or 
equal to, not equal to, or contains string) 
to a value (blank, numeric or character 
string) on which to select data. 


Logi(c): completes selection criteria by 
combining conditions (entered earlier) 
with the logical operators: and, or, not. 

Defi(ne): defines new variables which re¬ 
main in effect until a new master files is 
selected. 

List: displays selected fields for each rec¬ 
ord which satisfies the selection criteria 
(conditions and logic). 



Revi(ew): displays the number of the 
master fiel, the field names being listed, 
current conditions and logic expressions 
used in the listing. 

Stat(istics): calculates statistics (mini¬ 
mum, maximum, sum, mean, variance, 
standard deviation) for each specified nu¬ 
meric field. 

Util(ity): provides copy, tlist, mark, print 
and input. 

Quit: exits Micro-Grasp. 


Disk Directory maintains a directory 
of up to 50 disk programs and con¬ 
trols access to and execution of those 
programs. 

Disk Directory creates and maintains 
an index file. This index file includes 
the file identifier, program # (se¬ 
quenced in the order entered), and 
user-input information (up to 44 char¬ 
acters) about the file. Programs may 


be added or deleted through the User- 
Definable Keys. 

Disk Directory reads the index file, 
prints a directory of the files (multi- 
page if necessary) and prompts for the ^ y 
program of your choice. It will warn 
you if a selected file is a binary data 
file. Any other type of file will at¬ 
tempt to load. 
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Maze 

Boxes within Boxes 
French Provincial 
Cross-Hatched 
Sunburst 
Corners Only 

Instructions for changing the size of your 
border are included. 


“Frames” consists of 12 different de¬ 
signs which may be drawn around your 
slide on the screen or 4662 Plotter. 

Spokes 

Circles 

Spokes and Circles 
Straight-Edged 

Straight-Edged with Perspective 
Slants 

Six Pointed Stars 


ABSTRACT #: 51/00-9548/0 

Title: Frames 
\uthor: Mike Tharpe 
Honeywell, Inc. 

Minneapolis, MN 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Statements: 540 
Files: 1 ASCII Program 

For the final touch, frame your slides 


ABSTRACT #: 51/00-6126/0 

Title. Bibliography Management & 
Search 

Authors: K. Ho and G. Tzitzikalakis 
Columbia University 
Dept, of Orthopedic Surgery 
New York, NY 

Peripherals: OptionaM662 Plotter 
Memory Requirement: 24K 
Statements: 623 
Files: 2 ASCII Programs 

1 ASCII Text (example) 

Requires dedicated tape 

These programs store, review and re¬ 
trieve bibliographical references on tape. 

Management Program 

The program numerically sequences the 
references in the order entered. 

Four Data items comprise the reference: 

author’s name (72 char) 
title (144 char) 

source (144 char) 

content (216 char) 

Content contains the keywords which 
will be used in a search. 

You may review or correct any of the 
references stored on tape by responding 
with the reference number when prompt¬ 
ed. 

The data files may reside on the same 
tape as the program files or a separate 


tape. However, the tape from the first 
data file to the last must be dedicated to 
this program since the Management Pro¬ 
gram automatically MARKs files as 
needed and maintains a numeric se¬ 
quence throughout. 

A mnemonic menu drives the routines: 

ENT — search the last reference on 
tape, get and store new references 
one by one 

REV — search the designated refer¬ 
ence and print out 

COR — calculate the file number of 
the designed reference, store the file’s 
data in a string X$, correct the desig¬ 
nated reference and store string X$ 
onto the same file 

SEA — OLD the “SEARCH” pro¬ 
gram for retrieval of references 
MEN — print list of Mnemonics 
TER — end execution 

Search Program 

This program will search the references 
stored on a tape by the Management 
Program. The search may be based on 
keyword(s) in the content data item, or 
on the author(s) name. Once you choose 
the search mode, you will be prompted 
for the keyword(s). Only when the con¬ 
tent keyword(s) or the author(s) — de¬ 
pending on the mode chosen — satisfy 
all keyword(s) input, will the reference 
be retrieved. 


The retrieved references may be printed 
to the screen or plotter, stored on tape, 
or refined and stored on a different tape. 

A mnemonic menu drives the routines: 

KEY — search and retrieve refer¬ 
ences with keywords on content 
AUT — search and retrieve refer¬ 
ences with keywords on author 
REF — search and retrieve references 
stored on tape from previous search¬ 
es, with a different set of keywords 
on content or author 
TAP — store retrieved references on 
tape 

SCR — print retrieved references on 
screen 

PLO — print retrieved references on 
output device (plotter) 

CON — continue the search that was 
stopped due to memory space 
MEN — print list of Mnemonics 
man — OLD “MANAGEMENT” 
program and execute it 
TER — end execution of program 

An example of data file is included with 
the two programs. 
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4050 Series Applications Libraries 


Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 


Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 

P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 


Japan 

4050 Series Applications Library 
Sony/Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 
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